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PREFACE 


This publication is organized in three 
sections. Section 1 is an introduction 


describing the relationship between the 
compiler and the Operating System, and the 
overall organization of the compiler. Sec- 


description of the compiler 
phases, including a general description of 
each logical phase followed by descriptions 
of each of the physical phases contained in 
the logical phase. Section 3 consists of 
flowcharts and routine directories. The 
flowcharts show the relationship between 
the routines of each rhase, while the 
directories list the routines and their 
functions. 


tion 2 is a 


The appendixes appearing at the end of 
the publication contain topics of svecial 
importance and reference material. 


The convention has been followed in this 
manual of printing all PL/I language items 
in block capitals. 


Prerequisite to the use of this publica- 
tion are the following: 
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Fourth Edition (March 1968) 


This publication is a major revision of the previous edition, Y28-6800-2, 
and corresponds to Release 15 of Operating System/360; it reflects the 
improvements and additions which have been incorporated in the fourth 
version of the PL/I (F) Compiler. Significant additions include the 
implementation of PL/I multitasking, based storage and list processing, 
and the extension of input/output facilities which include LOCATE mode 
I/O, mixed record formats, variable length records, positioning control 
in stream 1/0, and data interchange facilities with OS COBOL data sets. 
Other changes provide additional compile-time facilities, and improved 
object-time performance in certain areas of application. These and other 
changes are indicated by a vertical line to the left of the change; new 
or SEAN illustrations are denoted by the symbol e to the left of the 
caption. 
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PURPOSE OF THE COMPILER 


The Operating System/360 PL/I (F) Com- 
piler analyzes and processes source pro- 
grams Written in PL/I, and translates them 
into object programs in load module form 
suitable for input to the Linkage Editor. 
When errors are detected in the source 
program, appropriate diagnostic messages 
are produced. The compiler functions with- 
in Operating System/360 and may be used on 


machines where at least 45,056 (44K) bytes 
of core storage are available for the 
compilation (exclusive of storage require- 


ments for the Operating System). 


THE COMPILER AND OPERATING SYSTEM/360 


oe eS SS A ————————— —— 


The PL/I (F) Compiler is a processing 
program of Operating System/360. The com- 
piler consists of a number of phases under 
the supervision of compiler control rou- 


tines. The compiler communicates with the 
control program of the Operating System, 
for input/output and other services, 


through the control routines. 


A compilation is introduced as a job 
step under the control of the Operating 
System, via the JOB statement, the execute 


(EXEC) statement, and the data definition 
(DD) statements of the Job Control Lan- 
guage, for the input/output data sets. 


Cataloged procedures are provided to keep 
these statements to a minimum. A discus- 
sion of the introduction of a compilation 
as a job step, and of the available catal- 
oged procedures, is given in the publica- 


The source program to be compiled 
appears as input to the compiler on the 
SYSIN data set. The compiler uses SYSUT1 
(required if the main storage is insuffi- 
cient to contain the program) and SYSUT3 
(required if the 48-character set or the 
compile-time processor is used) as work 
data sets. The SYSPRINT data set is manda- 
tory. The SYSPUNCH and SYSLIN data sets 
are used, depending on the options speci- 
fied by the source programmer, to contain 
the output from the compiler. 


The overall data flow associated with a 


compilation, and the data sets used in the 
compilation, are illustrated in Figure 1. 


Section 1 


(Introduction): 


SECTION 1: INTRODUCTION 


A compilation is initiated by loading 
the compiler control routines from the Link 


Library. The compiler control routines 
then carry out their own initialization, 
including loading those compiler control 


routines which remain in storage throughout 
the compilation. These routines perform 
the following functions: 


1. Act as the interface between the com- 
piler phase and the Operating System, 
controlling all input/output, storage 
allocation, program interruptions, 
storage dumping, etc. 


2. Supervise the loading of compiler 
phases in accordance with source pro- 
gram options and information obtained 
from the source program by the compil- 
er phases. 


3. Supervise all workspace used by the 
compiler for information concerning 
the source program. This includes any 
Spilling from main storage to backing 
storage in order to accommodate large 
source programs, the conversion of 
symbolic references to absolute 
addresses, and the conversion from 
absolute addresses to symbolic ref- 
erences. 


4. Provide a number of routines to assist 
in compiler debugging. 


The compiler options specified are 
interpreted and the appropriate action 
taken. The environmental options, such as 


storage size and device type, are used to 
calculate the text and dictionary block 
Size and the "spill" point (i.e. the point 
at which the main storage available is 
insufficient to contain the dictionary and 
text). 


To determine the block size a table 
contained in Phase AB is used. The storage 
size is used as the argument tc search the 
table. When the correct entry is found, 
the text klock size and the dictionary 
block size values are extracted and used 
for the compilation. 


The options are instructions to the 
compiler. Some of these require a phase to 
be loaded that would not otherwise be 
loaded. When an option of this type is 
found, a request for the phase required is 
inserted into the status byte in the phase 
directory. Other options are in the form 
of instructions to a phase that is always 
loaded. These instructions are also placed 
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| | 
| | 
| (SYSUT1 and SYSUT3 | 
| | 
| when required) | 


nre ai n men J 


+ 
| 
| 
| 
V 
fa ann qoc quee quee qoe METAS Toe A quem 1 
SOURCE | XREF | LIST | DECK/MACDCK | LOAD 
option | opticn | option | options | option 
| | | | | | | | | 
| | | | | | | l | 
| | l | | | | | | 
| | | | | | | | | 
V | V | V | V | V 
("rae eo eS 1 l pescar is ge, E ee ee |: p ee ES scam quede 
| Source | | | List or | | | List of | | | ESD,TXT,RLD || | ESD, TXT, 
| | | | identifiers,| | | object code| | | END and NAME|| | RLD, END, 
| program L | | | | produced | | | cards. PL/I || | and NAME 
| tł | [ list of | +. | by the | | | Source text || | (if OBJNM 
| listing | | | statement | | | compiler | | | if MACDCK || | specified), 
| | | | numbers LI | | | | specified. || | 
DE dea kn Oe A J ee di 1 ee TIE E sas 
SYSPRINT | SYSPRINT | SYSPRINT | SYSPUNCH | SYSLIN 
| l | | 
EXTREF ATR for all SOURCE2 
option option compilations option 
| | | | 
| | | | 
| | | | 
V V V V 
festen 1 pwes sese 1 DOU ae O ia e 1 
| External | | List of | | List of |] | 
| | | identifiers, | | compiler | |Listing of | 
| Symbol | | list of | | options used| [input to the | 
| | | attributes | | and | |compile-time | 
| Dictionary | | assumed by | | Diagnostic | | processor | 
| | | identifiers | | Messages | | | 
pell cecus 4 Lo ose J tc en NC Load J 
SYSPRINT SYSPRINT SYSPRINT SYSPRINT 


Figure 1. Compiler Data Flow and Data Sets Used 
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in coded form in the communications region 
of the dictionary, generally in the Control 
Code word (see CCCODE in Appendix B). 


COMPILER ORGANIZATION 


The PL/I (F) Compiler comprises a number 
of logical phases, each of which consists 
of several physical phases. 


The compiler phases and their corres- 
ponding functions are indicated in Figure 
2, and the organization of the compiler is 
shown in Figure 3. 


Control is passed between the phases of 


the compiler via the control routines. 
After each phase has been executed, it 
branches to the control phase, which sel- 
ects from its load list the next phase to 
be executed. 

Communication between the phases is 


implemented by the following: 

l& The text. stri The text string at 
the start of the compilation is input 
text. This is converted by th 
compile-time processor, if necessary, 
into a string which is PL/I source 
text. The characters in this string 
are translated into a code internal to 
the compiler. The phases of the com- 
piler gradually process the text until 


the final form is the object program, 
consisting of a string of machine 
instructions. For the compiler pro- 
per, the text code bytes used, and 
formats of statements at different 
stages of the compilation, will ke 


found in Appendix D. 


The text is broken down into a number 
of blocks, depending upon the size of 
the machine. Each block has a symbol- 
ic name which is independent of the 
physical location of the block in 
storage. Thus, the text blocks may be 
moved around in core storage under the 
supervision of the compiler control 
routines, and spilled on to backing 
storage if insufficient main storage 
is available. 


The uictiona The dictionary con- 
sists of a number of blocks, each with 
a symbolic name. Part of the first 
dictionary block is used as a communi- 
cations region (see Appendix F) 
between phases, and for this reason 
the first block is never spilled, even 
when the source program to be compiled 
exceeds available storage. The com- 
munications region contains such 
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information as the 
heads of chains, 
etc. 


text, 
tionary 


relating to identifiers 


addresses of the 
the symbolic start of 
The remainder of the dic- 
all information 
appearing in 


contains 


the program, temporary storage areas 
required, etc. For the compiler pro- 
per, the format of all dictionary 


entries will be found in Appendix C. 


—————— 
[Logical Phase 


{Compile-time 
| Processor 


| Read- In 


n MORE QNEM CDM PRIME Sir MEME 7 


| Main Functions | 


{Executes compile-time | 
| statements and produces | 
(input for further compiler | 
| processing. | 


¡Check source program syn-| 
| tax; remove superfluous| 
|characters. | 


}------------- ł--------------------------- 1 


[Dictionary 


—=— 


Pretranslator 


{Remove BCD identifiers and] 
[attribute declarations; | 
|replace ky symbolic  ref-| 
| erences to dictionary| 
|entries. | 
{Rearrange I/O statements; | 
[create temporary  variables| 
| for procedure argument | 
|expressions; convert array| 
land structure assignments | 
|to DO loops; remove iSUB| 
| expressions. | 


}------------- ———— 1 


|Translator 


{Convert PL/I syntactical | 
|form to internal triple] 
| form. | 


|Map all structures and | 
larrays to align elements on| 
[correct storage boundaries. | 


[Pseudo-code Convert triples to pseudo- | 
| | code. | 
}-------------}--------------------------- 1 
| Storage |Allocate storage for items | 
lallocation Jin AUTOMATIC blocks  or| 
| |STATIC storage area. | 
|-------------}--------------------------- 
{Register {Allocate physical registers | 
[allocation jin place of symbolic reg-| 
| listers requested by earlier| 
| |phases. | 
}-------------4}--------------------------- 1 
| Final [Complete translation to ma-| 
| assembly |chine code; produce loader | 
| |text; produce object code| 
| [listing. | 
p------------- }--------------------------- 1 
| Error |Prints out any necessary | 
| Editor [diagnostic messages. | 
A E nas e cl. Lu A 4 
Figure 2. Logical Phases of the Compiler 

and their  Correspcnding Func- 

tions 
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Figure 3. Compiler Organization and Control Flow 
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LOGICAL PHASES 


The logical phases of the compiler and 
their main functions are summarized in the 
following paragraphs. 


w — a — 0 0 «0e Man —Á EE —À S ate ee 


Processor Phase reads 
input text, executes any compile-time 
statements contained in it, and modifies 
text as directed, producing modified text 
for further compiler processing. 


The Compile-time 


Read-In Phase 


The Read-In Phase is responsible for 


source program syntax checking, and the 
removal, from the text string, of all 
superfluous characters, such as comments 


and non-significant blanks. 


The Dictionary Phase removes all BCD 
identifiers and attribute declarations from 
the source string, and replaces them by 
symbolic references to dictionary entries. 
The dictionary entries contain all the 
consistent declared attributes, and ali the 
attributes specified in the language in 
default of source program specifications. 
Error messages are generated for all incon- 
sistent attributes. 


Pretranslator Phase 


The Pretranslator Phase processes those 
features of the language that are more 
easily processed in their original PL/I 
form, than when the original syntactic form 
has been lost in later phases. The Pre- 
translator carries out these modifications 
which include the rearranging of the order 
of certain I/O statements, the creation of 
temporary variables for procedure arguments 
which are expressions, the conversion of 
array and structure assignments to a series 
of 'DO' loops surrounding scalar assign- 
ments, and the removal of iSUB expressions. 
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Translator Phase 


The Translator Phase converts the origi- 
nal PL/I syntactic form to an internal 
syntactic form, referred to as "triples." 


Triples consist of the original source 
program operators and operands, but rearr- 
anged so that the operations specified in 
the source string may be carried out in 
their proper order. 


The Aggregates Phase carries out ail 
structure and array mapping, so that ele- 
ments are aligned on the correct storage 
boundaries. When it is not possible to 
carry out the mapping at compilation tire, 
such as when the aggregates contain string 
lengths or array bounds which are specified 
by expressions, object code is produced to 
do it at object time. This phase also 
checks that items DEFINED on arrays and 
structures can be mapped consistently. 


Pseudo-Code Phase 


— ee oieee 


The  Pseudo-Code Phase converts the tri- 


ples to a form closely resembling machine 
instructions, in which registers are rep- 
resented symbolically, and storage loca- 


tions are represented by dictionary ref- 
erences with offsets. The final pseudo- 
code version of the text also contains a 
number of special pseudo-code items for the 
guidance of later phases. 


e n — a a n ae tw a ee —— ee avi an 


Allocation Phase searches 
the dictionary for all entries requiring 
Storage, and allocates offsets to each 
item, either within its AUTOMATIC block, or 
within the STATIC storage area. Code is 
compiled to set up dope vectors and 
pointers at object time, for allocations of 
controlled variables and temporaries, the 
storage for which must be obtained during 
the execution of the object program.  Pro- 
logue code is generated for each block of 
the object program. 


The Storage 
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The Register Allocation Phase allocates 
physical registers to the symbolic reg- 
isters which have been requested by earlier 
phases, and also ensures that all the 
storage location offsets allocated in pre- 
vious phases can be addressed by the inser- 
tion of additional instructions, where nec- 
essary. 


The Final Assembly Phase completes the 
translation to machine code instructions, 
by calculating branch destination addresses 
inserted symbolically by earlier phases. 
Loader text is then produced for the 
machine instructions, constants, INITIAL 
values in STATIC storage, and all the 
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constant data required for klock initiali- 
zation. ESD and RLD cards are produced to 
enable the object program to be edited by 
the Operating  System/360 Linkage Editor. 
The Final Assembly Phase also produces a 


listing of the object code produced. 


Error Editor 


ne ee eee 


The Error Editor Phase is entered at the 
end of every compilation. The dictionary 
is examined to determine whether there are 


any diagnostic messages to be printed out. 
If there are none, the compilation is 
terminated by the compiler control. If 


there are diagnostic messages to be printed 
out, the error dictionary entries are proc- 
essed and the messages are printed. The 
texts of all the diagnostic messages are 
|held in modules XG through YY. 


| Note: 


SECTICN 2: COMPILER PHASES 


| which are mentioned in this section of the Program Logic Manual, refer to Appendix D, 11. 


COMPILER CONTROL 


When the PL/I (F) Compiler is invoked by 
the calling program (e.g., the Job 
Scheduler) of the Operating System, the 
Compiler Control module IEMAA is loaded and 
entered. IEMAA is resident during the 
whole compilation; it controls the follow- 
ing functions: 

Initialization 

Character translation 

Text and dictionary block control 
Scratch storage control 

Phase loading 

Diagnostic message control 
Input/output control 


Program check handling 


Job termination 


Initialization 


Initialization is achieved by module AA 
linking to module AB. Module AB performs 
the detailed initialization of the compil- 
er, and provides the following functions: 


Opens SYSIN and SYSPRINT data sets 


Constructs a phase directory (for details 
refer to Appendix B) 


Sets up a communications region in the 
dictionary (for details refer to Appendix 
F) 

Scans option list 


| Obtains space for text blocks and dic- 


| tionary blocks. 
| Opens SYSUT3 and SYSPUNCH as necessary 


Prints a list of options used in current 


compilation 


Section 2 


(Compiler Phases): Control, 


to handle a normal dic- 
extended 


Loads phase AN 
tionary, or phase AL if an 
dictionary is requested. 


On return from module AB, the first compil- 
er phase is loaded and entered. 


Character Translation Takles 


EE —À —À —ÀM——M——À — ——À —Á— ——— ——— 


The character translation tables (see 


Appendix D.1) provide the facility for 
converting external code to a compiler 
internal code, and for converting the 
internal code back to the external form. 


These tables thus prevent the compiler from 
becoming character code dependent, and ena- 
ble the scanning routines to process the 
input source statements more efficiently. 


Note that the contents of these tables are 
different during compile-time processing 
from the contents during compilation pro- 
per. 


————————— ———————— vm ER w — 


The communications region is an area 
Specified by the control routines, and used 
to communicate necessary information 


between the various phases of the compiler. 
The communications region is resident in 
the first dictionary block throughout the 
compilation. 


Entry to the various compiler control 
routines is via a transfer vector. Details 
of the transfer vector and the organization 
of the communications region appear in 
Appendix F. (Note: The use of the communi- 
cations region during compile-time process- 
ing is described in Appendix J.) 


Block control is achieved by a syster of 
text and dictionary references. If the 
program in storage becomes too large, 
blocks are placed on an external file, 
SYSUT1. The block control routines contain 
the input/output control. 
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Scratch storage of 4K bytes is guaran- 
teed to all phases. The control routines 
Split the 4K-block into discrete sections, 
and allocates them as required. The sec- 
tions are in multiples of 512 bytes. 


The (F) Compiler requires main 


for the following purposes : 


storage 


Compiler processing phases 
Print buffers 

Compiler control routines 
Dictionary area 

Text area 

Input/Output buffers 
Input/Output routines (QSAM) 

The main storage required by each phase 
of the compiler need be contiguous only for 
each control section. 

During the read-in phases a minimum of 
two dictionary blocks and two text blocks 
are available in storage simultaneously. 

During the rest of the compilation four 


dictionary blocks and four text blocks are 
available in storage simultaneously. 


The dictionary and text block size is 
chosen according to the amount of main 
storage available to the compiler. The 
SIZE option, interpreted at invocation 
time, provides the value used to determine 


the block size. A takle ccntained in Phase 
AB is searched, using the SIZE option as an 
argument. When the correct entry is found, 
the block size is extracted. 

details of 


Appendix E shows 


allocation. 


storage 


Phase Loading 


Phase 
marking 


loading routines include phase 
(where phases are indicated as 
wanted or not wanted), phase loading, and 
phase deleting facilities. The phase 
directory is constructed for this purpose. 
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Because of the number of phases in the 
compiler, the phase directory is split into 
halves. The first half is constructed 
during the initialization of the compiler; 
also a list of names of the phases in the 
second half is kept in Phase AA. This list 
is used to pass status indications (i.e., 
whether phases are wanted or not wanted) 
from the first half to the second half. 
Phase JZ uses the list to construct a new 
directory for the second half. (The error 
message phases have their own phase direc- 
tory, which is built in phase XB and uses 
the same space in AA as the phase directory 
proper.) 


The phase directories are ccnstructed by 
use of the BLDL macro and a build list. 
The format of the build list is fully 


Form C28-6541. For details cf the phase 
directory see Appendix B. 
Diagnostic Message Control 

Diagnostic message control routines 


cause diagnostic messages to be placed in a 
chain in the dictionary. 


The I/O control routines involved act as 
an interface between the compiler phases, 
and SYSIN, SYSPRINT, SYSLIN, and  SYSPUNCH 
data sets. (See Figure 4.) 
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The compiler handles all prcgram checks. 
Control can be passed to a phase to enable 
it to deal with the check. 


Job Termination 


The compiler completion code is picked 
up and control is returned to the calling 
program. 


The compiler completion codes are as 


follows: 


code 


0 


Meaning 


No diagnostic messages issued; com- 
pilation completed with no errors 


Warning messages 
compiled 


issued; program 


Error messages issued; program com- 
piled but with errors; execution 
may fail 


12 


16 


Severe error messages issued; com- 
pilation may be completed but with 
errors, successful execution impro- 
batle. If a severe error occurs 
during compile-time processing, a 
listing of the PL/I text on SYSUT3 
will be printed if the SOURCE 
option is specified. The compila- 
tion will be terminated. 


Terminal error messages issued; 
compilation terminated abnormally 
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m ae EE NAAA A A A AA T ASS ee oe ee ee 
| Data Set | SYSIN | SYSLIB | SYSLIN | SYSPRINT | SYSPUNCH | SYSUT1 | SYSUT3 | 
fese ron Ss (SAS PAR donee eem jq esc ente ure quee. POR 1 
| Module | | | | | | | | 
| | | | | | | | | 
| AAt | | | WRITE | | | OPEN3 | | 
| | | | | | | | | 
| AB | OPEN | | |OPEN/WRITE | OPENS | OPEN3 | OPEN | 
| | | | | | | | | 
| AC1 | | | | | | | WRITE/READ | 
| | | | | | | | | 
| AEt | | OPEN | OPEN | | OPEN | | | 
| l | | | | | | | 
| AG | | | | | | | CLOSE/OPEN | 
| | | | | | | | | 
| BX | READ | | | | | | | 
| | | | | | | | | 
| CI | READ | | | WRITE | | READ/WRITE | WRITE/READ | 
| | | | | | | | | 
| AS? | READ | READ | | WRITE | | | WRITE | 
| | | | | | | | | 
| FY | | | | WRITE | | | | 
| | | | | | | | | 
| UA | | | | WRITE | | | | 
| | | | | | | | | 
| UD | | | | | WRITE | | | 
| | | | | | | | | 
| UF | | | | WRITE | | | | 
| | | | | | | | | 
| XB | | | | | WRITE | | | 

| | | | | | | | 

| AE | CLOSE | l | | | | CLOSE 

| | | | | | | | 

| AK* | | | | | | CLOSE | | 
| | | | | | | | 

| AKS | | CLOSE | CLOSE | CLOSE | CLOSE | CLOSE | | 
| | | | | | | | | 
| | | | | | | | | 
Lotes Hats A dc ccce MAA Sesa. EP Wc. dee Lessa 4 
|TAA, AC, and AE are modules of the control phase, and contain actual I/O routines which 


| 
| interface with the O/S access methods (BSAM,QSAM). I/O activity shown for other | 
| modules indicates that these modules are utilizing the I/O routines. | 
|2AS may read from included data sets in addition to those shown in the table. | 
(att the SIZE option results in 1K text and dictionary blocks, SYSUT1 is opened by | 
| Module AB. In the case of other SIZE options, SYSUT1 is opened by Module AA when the | 
| available main storage is full. The timing depends on the size of program to be | 
| compiled. | 
|[^AK closes only the spill file SYSUT1 when the batch option is used and a further | 
| source program is to be compiled. | 
| SAK closes all other files upon termination of a single or batch compiler run. | 
| SSYSPUNCH is opened if MACDCK option specified. | 


Figure 4. Input/Output Usage Table 


COMPILER CONTROL MODULES Module AC 


In addition to modules AA and AB, furth- Module AC controls reading and writing 
er modules, AC, AD, AE, AF, AG, AH, AI, AK, Operations on  SYSUT3, the intermediate 
AL, AM, AN, and JZ are used in compiler file. It is loaded only if the CHAR48 or 
control. The functions of these modules MACRO option is specified, and is deleted 
are briefly described in the following at the end of the Read-In Phase. 
paragraphs. 
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Module AD 


Module AD performs inter-phase dumping. 

All specified active storage is dumped 
at the end of the phases stated or implied 
in the DUMP option. If the DUMP option 


includes either I, for the Annotated Dic- 
tionary Dump, or E, for the Annotated Text 
Dump, or both, then phase AD will load 


either phase AH, or phases AI and AJ, or 
all three, to produce the required output. 


The DUMP Option 


The DUMP option which is specified in 
the PARM field of the EXEC card indicates 
where dumping of main storage is to take 
place. It may be specified in one of the 
following ways: 


1. DUMP, means a dynamic dump is required 
(the dump routine will be called by a 
running phase) 


Kä DUMP= (AREA,X4,X2 € X3 y. . e .Xp) means a 
dump of the storage after the named 
phase. 


AREA is any combination of TDPSCIE: 
text blocks 

dictionary blocks 

phases loaded 

Scratch storage 

control phase 

annotated dictionary blocks 
annotated text blocks 


EiHOoUu'tudd 


The general syntax is: 


DUMPÍ-(ILAREA], íx| (y,z)},.-.)] 


A single phase name indicates dumping of 
Storage after this single phase. A pair of 
phase names indicates a continuous group of 
phases after which dumping of storage is to 
occur. 


The dump will appear on  SYSPRINT, 
inserted into the normal compiler output. 


If AREA is omitted the default taken is 
DTSP. If a program check occurs and DUMP 
has been specified then AREA will be given 
the default DTSPC. 

Use of the DUMP option may cause the 
compiler to use more core than the SIZE 
option specifies. This is because SIZE 
Specifies the amount of core the compiler 
can use for normal compilation and does not 
allow for the internal compiler diagnostic 
dumps. 
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[Example of an EXEC card using the DUMP 


(option: 


|  //STEP1 EXEC PROC=PLILFC, 
| PARM.PL1L-'DUMP-(TE,QJ)' 


|This statement specifies compilation using 
[the DUMP option to obtain a printout of the 
[text blocks, the annotated text blocks, and 
lof storage after the completion of compiler 
|phase QJ. 


Module AE 
Module AE is the finalization of the 
READ-IN Phase control. (See Fig.4, Note?) 


Module AF 


Module AF is a control section consist- 
ing of a table containing the compiler 
options which may be used during a compila- 
tion. The table is constructed at system 
generation time. The control section is 
brought into storage by the initialization 
Module AB at compilation time. A descrip- 
tion of the use of Module AF is given in 
Appendix G. 


Module AG 


Module AG closes SYSUT3 for output, and 


re-opens it for input. 


The closing and opening operations are 
performed in the following order: 


CLOSE 
alter macro-type in data control 
(DCB) 


block 


OPEN(INPUT) 
switch routine ZURD to point at SYSUT3 
DCB 


This module produces a dump of the 
dictionary. It prints out the communi- 
cations region in the first block, and 
the offsets takles for each block if the 
extended dictionary option is in use. 
The remainder of each block is printed 
out entry by entry. The BCD is translat- 
ed for those entries containing BCD. At 
the end of the dump, a list of all the 
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dictionary codes used is given, with an 


explanation for each code. 


The module is called by phase AD only 
if an I is specified in the AREA field of 
the DUMP option. 


Modules AI, AJ 


Module AI is called if E is specified 
in the AREA field of the DUMP option. It 
provides an 'easy-to-read' text print in 
which the triples and pseudo-code items 
comprising the text are printed separate- 
ly. This option is available between 
phases IA and OG inclusive. 


Module AJ is called if I is specified 
in the AREA field of the DUMP option to 
produce the Annotated Dictionary Dump. 


Module AK 


Module AK is the closing routine of 
the compiler. Its function is to release 
core used for dictionary, text blocks, 
scratch storage, and completed phases. 
If batch compilation is not specified, 
module AK closes all the files used by 
the compiler. If a batch compilation is 
specified, a check is made to determine 
whether any source programs are still to 
be compiled. Where there are none module 
AK closes all files. Where one or more 
programs remain to be compiled, the spill 
file only is closed, the batch delimiter 
card is scanned for syntax errors, and 
control is returned to module AA. 


Module AL 


This module contains the control rou- 
tines for dictionary and text-block han- 
dling for the extended dictionary. 


Module AM 


Module AM marks phases as either wanted 
or not wanted, depending upon the compiler 
invocation options. Phases that are always 
loaded are marked wanted. 


AM is the first compiler phase loaded 
after compiler initialization. It tests 
the relevant bits in CCCODE and marks the 
phases accordingly. 
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| This module contains the routines for 
[dictionary and text-block handling for the 
|normal-sized dictionary. 


Module JZ 


Module JZ builds the second half phase 
directory. A build list is constructed 
from the second half list held in Module 
AA; a BLDL is performed on this list. The 
phase directory is then reconstructed in 
Module AA for the second half of the 
compiler. 


48-CHARACTER SET PREPROCESSOR 


Phase BX is the 48-character set prepro- 
cessor. It is loaded on programmer option 
and receives, aS input, source text in the 
48-character syntax. 


The preprocessor scans the input text 
for occurrences of characters peculiar to 
the 48-character set, and converts these to 
the corresponding 60-character symbols. It 
then puts out the adjusted text onto  back- 
ing storage ready for Phase CI, the first 
pass of the Read-In Phase. 


The text is read in record by record. 
It is then scanned for alphabetic charac- 
ters which may be the initial letters of 
Operator keywords, for periods, and for 
commas. Items within comments or character 
strings are ignored. 


When a possible initial letter is disco- 
vered, tests are made to determine whether 
or not one of the reserved operator key- 
words has been found. If one has been 
found, it is replaced by its 60-character 
Set equivalent. Similarly, appearances of 
two periods are replaced by a colon, and a 
comma-period pair is replaced by a semi- 
colon if the comma-period pair is not 
immediately followed by a numeric 
character. 


Allowance is made for the possibility 
that a concatenation of characters which is 
meaningful in the 48-character set may be 
Split between two records. 


Before the text is processed a copy of 
the original input is preserved. The out- 
put from the preprocessor is the trans- 
formed text, record by record, followed by 
the original text. The Read-In Phase proc- 
esses transformed text but prints out the 


original. 


Control 
routine 
backing 


The preprocessor uses Compiler 
routine ZURD to obtain input, and 
ZUBW to place its output onto 
storage. 


If the MACRO option is specified, all 
the processing described above is 
done by the compile-time processor, 
and phase BX is bypassed. 


Note: 


processor consists of 
Each of these phases 
is executed once, unless an INCLUDE data 
set is encountered. In this case certain 
phases will be re-executed. 


The compile-time 
six physical phases. 


The compile-time processor moves source 
text that does not contain compile-time 
statements directly into text blocks. Dur- 
ing this process invalid characters are 
replaced by blanks, and line numbers are 
encoded and inserted into the text. 
Compile-time statements are decoded and 
translated into an internal form and then 
placed directly into text blocks. An entry 
is made into the dictionary for each 
compile-time variable, procedure, label, or 
INCLUDE identifier. 


A second pass is then taken over these 
text blocks, during which compile-time 
statements are executed and the PL/I source 
program text is scanned and replacements 
are made. The output from this pass is a 
PL/I source program contained on SYSUT3 
and, optionally, a punched card deck. 


If during the second pass, an INCLUDE 
data set is processed, the entire procedure 
indicated above is executed recursively to 
process this text. 


Text and dictionary formats used by the 
compile-time processor are contained in 
Appendix J. 


Line Numbering 


As the input is being processed a unique 
line number is assigned to every logical 
record processed. If a listing of the 
input is requested, these line numbers are 
written out beside the appropriate line. 
The line numbers are also encoded and 
inserted into the text so that diagnostics 
can be keyed to them. These line numbers 
are also output on SYSUT3, to aid the user 
in determining from which input line a 
particular line of output came. 
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Phase AS 


This phase, consisting of one physical 
module, is loaded if the option MACRO is 
specified. It is resident throughout 


compile-time processing until the cleanup 


phase (BW) is invoked. 


This phase controls the loading of the 
subsequent compile-time processor phases. 
The initialization phase (AV) is loaded 
only once. The two processing phases (EC 
and BG) are loaded and executed once unless 
lan INCLUDE data set is processed. In this 
case phase AS reloads the processing phases 
to process this data set. 

In addition, phase AS contains a set of 
Service routines used by both processing 
phases. Access to these routines is via a 
transfer vector located at the beginning of 
phase AS. 


Phase AV 
This phase consists of cne physical 
block. Its purpose is to initialize cer- 


tain cells in the communications region for 
the compile-time processor phases. 


|Phase BC (BE, BF) 


Phase BC consists of 
modules, BC, BE, and BF. 
tains the control routine. 


three physical 
Module BE con- 


Phase BC accepts input text, moving it 
into text blocks until a compile-time 
statement is found. (For a description of 
the use and layout of text and dictionary 
blocks, see Appendix J.) When a compile- 
time statement is encountered, it is 
encoded into a set of interpretive instruc- 
tions and, except for compile-time  proce- 


dures, added to the current text block. 
Compile-time procedures are Similarly 
encoded, but are placed in separate text 


blocks. 


As compile-time statements are encoded, 
all non-keyword identifiers encountered are 
entered into the dictionary, together with 
any attributes that are known. Entries are 
also made in the dictionary for constants 
and iterative DOs. 


During phase BC, invalid characters 
occurring outside of strings and comments 
cause a diagnostic to be printed. They are 


converted to blanks. Invalid characters 
can thus be used for markers of various 
sorts in text blocks. Diagnostics are 
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errors in compile-time 
statements. Line numbers are encoded and 
inserted into the text for the use of the 
phase BG scan. All input characters are 
converted to their EBCDIC representation 
before they are processed. 


given for syntax 


Phase BG (BI, BJ) 


Phase BG consists of three physical 
modules: BG, BI, and BJ, which contain the 
control routine, the macro-code interpret- 
er, and the built-in function handler, 
respectively. 


In general, the input to phase BG is the 
set of chained text blocks and dictionary 
blocks created by phase BC. The phase BG 
execution is essentially that of the 
compile-time processor described in the 
external specifications. That is, its 
basic action is to move through text blocks 
looking for instances of compile-time vari- 
ables or compile-time statements, which it 
uses to produce the output text. As line 
numbers are encountered in the text, they 
are placed into a location containing the 
current line number. This is used both for 
phase BG diagnostics and by the output 
editor. 


If a compile-time variakle or procedure 


reference is found, the scan cursor is 
positioned to scan its value. When the 
scan of the value is completed, the cursor 


is properly positioned back into the text. 
If a compile-time variable or procedure 
reference is found in this value scan, the 
process repeats itself. Such nesting can 
occur to a depth of 100. 


If the scan encounters an encoded 
compile-time statement (built by phase BC), 
control is passed to an interpreter. This 
interpreter executes the statement -- pos- 


Sibly repositioning the scan cursor -- and 
returns to the scan. 

The output of this phase is a PL/I 
source program contained on SYSUT3, and, 
optionally, as a sequenced card deck. 


Phase BM examines the heads of the error 
chains in the first dictionary block, and 
programmer options which specify the sever- 
ity level of messages required. If there 
are no messages, it passes control to the 
clean up phase (BW). If diagnostic messa- 
ges are required, the phase loads BN to 
process them after scanning the chains and 
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lindicating where the text is to be found, 
|from the message directory block, module 
| BO. 


The text of all 
error messages is 


compile-time processor 

kept in modules BP 
through BV. The messages are ordered by 
severity, within these modules. BM will 
have listed those modules which contain 
messages required for a particular pass. 
Module BN loads and releases these modules, 
one at a time and extracts the required 
messages. When all compile-time error mes- 
sages have been processed, module BN 
returns control to BM. 


Phase BW 
The purpose of this phase to set all 
tables and communication region cells to 


the values required by the compiler proper. 
In addition it will release all text and 
dictionary blocks used by the compile-time 
processor phases and then pass control to 
the next required phase of the compiler. 


If a severe or terminal diagnostic has 
been produced by the Compile-time processor 
a listing of the contents of SYSUT3 will be 
printed (provided that the SOURCE option 
applies), and compilation will be bypassed. 


THE READ-IN LOGICAL PHASE 


The Read-In Phase is implemented as five 
discrete physical phases, each of which 
processes a particular group of statement 
types. The phase obtains the input text in 
the externally coded form by a call to the 
compiler read routine, and converts it to 
internal code by means of a translate table 
provided by compiler control. 


The source text is scanned for syntacti- 
cal errors. During this time an output 
string is built up, which consists essen- 
tially of the input text with comments and 
insignificant blanks removed. The source 
text is scanned and statements are num- 
bered, identified, and diagnosed. Any 
required substitutions are made, statement 
labels are inserted in the dictionary, and 
chains are formed (for example, BEGIN, 
PROCEDURE chains). If the SOURCE option 
lapplies, source statements, with their num- 
|ber, and optionally, their block levels and 
|DO-nest levels, are printed out immediately 
lafter they have been read. 


When the input text provides an  end-of- 
file indication, processing is terminated. 
In ERROR situations this may not occur when 
a valid external procedure has been 
completely processed. By keeping a count 
of PROCEDURE, BEGIN, DO, END, ON, and IF 
statements, the phase can detect when the 
logical end-of-program indication is found. 
If there are more records after the end of 
the external procedure, they are ignored. 


If an end-of-file indication is  encoun- 
tered before the logical end of the pro- 
gram, diagnostic messages are issued and 
suitable END statements are inserted to 
allow compilation to continue. 


The output of the Read-In Phase provides 
a syntactically correct output string; a 


table of entry and statement labels; chains 
of coded diagnostic messages; a set of 
switches specifying compilation content 


details; a set of chains linking statements 
of a particular type, to facilitate subse- 
quent scanning; and optionally, a listing 
of the source text. 


All statements are given a sequential 
number. This includes each compound state- 
ment, each statement contained in a com- 
pound statement, block and group delimiting 
Statements, and null statements. The ELSE 
clause is not regarded as a statement for 
numbering purposes. The numbering of the 
Statement is indicated on the source list- 
ing. Diagnostic messages also refer to 
these statement numbers. 


eegen negt 


Statement and entry labels appearing in 
the source text are removed and added to a 
label table, which is built up in the 
region intended for the dictionary. This 
region: may be extended by further blocks as 
required. The label table entry is an 
embryo dictionary entry, with blank regions 
to be filled later by the Dictionary Phase 
EG. 


When a label declaration is found, an 
entry is made in the label table with a 
Statement label code, the current (updated) 
sequential number, and the current block 
level and block count. 


Statements having multiple labels give 
rise to multiple label table entries. 
These entries are identical except for the 
BCD name. 
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If the statement following a label is 
subsequently identified as a PROCEDURE or 
ENTRY statement, the label table is re- 
accessed, and the entries associated with 
the statement are modified (see Appendix 
C.2). 


To provide rapid scanning in the 
dictionary phases, the following chains are 
constructed by the Read-In Phase: 


The CALL chain 
The PROCEDURE-ENTRY-BEGIN chain 
The DECLARE chain 


The ALLOCATE chain 


—A———————Ó—M——— — —À —À—————— a n = 


As the source text is scanned it is 
syntactically analyzed. Keywords are iden- 
tified and passed as valid only if they may 
legally appear within the type of statement 
being diagnosed. However, consistency of 
attributes and options within a statement 
are not normally analyzed. This is left 
for Phase EK. 


When a syntactical error is detected, an 
attempt is made to correct it and an 
appropriate diagnostic message is generat- 
ed. The main aim of the Read-In Phase is 
to present syntactically correct text to 
subsequent compiler phases. Certain cor- 
rections are performed without  prejudicing 
the complete compilation. 


Detected errors cause a diagnostic mes- 
Sage to be added to a diagnostic message 
chain in the dictionary area. Each message 
is in a coded form with parameters (textual 
matter, statement numbers, and so on). The 
message is decoded and printed out by the 
Error Editor. 


Where an error makes it impossible for 
the scan of a statement to continue, the 
statement is terminated correctly at such a 
point as to leave the statement  syntacti- 
cally correct. The text between that point 
and the next semi-colon (not in a comment 
or character string) is skipped. The diag- 
nostic messages produced in these circum- 
stances will include at most the first ten 
characters of the text that is skipped. 
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The Output String 


The output string is so arranged that a 


complete statement never spans storage 
blocks. One of the conditions of a suc- 
cessful compilation is that the output 


resulting from any statement must not 
exceed the block. This restriction, howev- 
er, does not apply to DECLARE statements. 
Formats of the statements appearing in the 
output string are given in Appendix D.2. 


Identifiers 


All identifiers which are not recognized 
as keywords in the source text appear in 
the output string. 


Constants 


All constants appear in the output 
string. 
Opérators 

All operators appear in the output 


string. 


Initial Labels 


Subscripted label variables which are 
initialized by attachment to statements are 
placed in pseudo-assignment statements in 
text, and then handled as if they were 
normal labels. 


STRUCTURE OF THE READ-IN LOGICAL PHASE 


The Read-In Phase can occupy 16K bytes 
of storage for any one pass. A storage map 
for this phase is shown in Figure 5. 
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Bytes 
0 il EN REN aaa 1 
| CA | 
4K ro os n no m enn ma 4 
| cc | 
7K foo t------ poo t------ T------ 1 
| CE | CK | CN | CR | CR | 
8K poo ł------ ł------ ł------ ł------ 1 
I cce | cL | co | cs | cV 
12K kon ł------ ł------ ł------ }------4 
| CI | CM | CP | CT | cw 
dod acia Y mane Sper e T WEE ER lseukee ee ] 
PASS 1 PASS 2 PASS 3 PASS 4 PASS 5 
Figure 5. Storage Map for the Read-In Phase 


The Read-In Phase consists of five phas- 
es or passes, each containing at most five 
modules. Modules CA and CC consist of 
common routines which are invcked  through- 
out the phase by each of the passes, in 
turn. Modules CE, CK, CN, and CR contain 
Separate keyword tables. Details of the 
organization of these tables are given in 
Appendix B. Control for each pass resides 
in modules CI, CL, CO, CS, and CV respec- 
tively. The following description refers 
to the phases by these names. 


Phase CI 


During phase CI (the first physical 
phase of the Read-In Phase) the source text 
is read into storage, and character codes 
are converted to an internal form.  State- 
ment types are identified, labels are 
inserted into the dictionary, and staterent 
identifiers are replaced by single-byte 
codes (see Appendix D.1). 


A record is kept of block nesting levels 
and counts to enakle a check to be made for 
the logical end-of-program indication. In 
order to do this, certain statements have 
to be either partially or completely ana- 
lyzed in this pass. 


These statements are: 


PROCEDURE-END 
BEGIN-END 
DO-END 
IF-THEN-ELSE 
ON 


If the SOURCE option has keen requested, 
a listing of the source program, with the 
statements numbered by the compiler, is 
printed out onto the specified output medi- 
um. 


Phase CL 


The output from phase CI is processed 
and the statement types listed below are 
analyzed in greater detail: 


ENTRY FREE 

PROCEDURE WAIT 

DO READ 

Iterative DO WRITE 

RETURN DELETE 

GO TO UNLOCK 

DELAY LOCATE 

DISPLAY REWRITE 
If any errors are detected during this 


pass, diagnostic messages are inserted into 
chains in the dictionary as required. 


Phase CO 


The output from phase CL is processed. 
In particular, the DECLARE, ALLOCATE, and 
CALL statements are analyzed in greater 
detail. The syntax of attributes is 
checked, but their consistency is analyzed 
during phase EK. If the source program 
does not contain any of these three state- 
ments, this pass is not invoked. 


If any errors are detected during this 
pass, diagnostic messages are inserted into 
chains in the dictionary. 


Phase CS 


The output from phase CL or CO is 
processed. In particular, the syntax of 
input/output statements is analyzed, 
together with the FORMAT statement. If the 
source program contains no input/output 
statements, this pass is not invoked. 


Phase CV 


This phase 
earlier phases. 


processes the output from 

In order to assist subse- 
quent processing, chains are constructed 
for PROCEDURE, ENTRY, BEGIN, CALL, ALLO- 
CATE, and DECLARE statements. 


A ES SE at 


The Dictionary Phase forms a dictionary 
of identifiers, by first analyzing  PROCE- 
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DURE, BEGIN, DECLARE, and ENTRY statements. 
The text is then scanned for contextual use 
of identifiers, constants, and pictures. 
Finally, every identifier and constant in 
the source text is replaced by a reference 
to its respective dictionary entry. Dic- 
tionary entries are made during this phase 
for all implicitly defined identifiers. 
The formats of dictionary entries appear in 
Appendix C. 


The dictionary, during the construction 
Stage, comprises two parts, the hash table 
and the dictionary proper. 


TO facilitate a search through the dic- 
tionary for an entry with a particular ECD, 
a method is used of dividing the dictionary 
into areas. Each area is characterized by 
a property of the BCD of each entry in it. 
In practice, these areas are not contiguous 
but are chained lists, each item in the 
list being one dictionary entry long. 


The start of each list is in a table, 
known as the hash table. The association 
of a particular identifier with a list, 
i.e. the characterization of an area, is 
achieved by deriving from a given BCD an 
address in the hash table. 


"Hashing" is a process of reducing the 
length of the internal representation of 


the BCD to one word. This is done by 
adding successive four-byte lengths of the 
BCD into one four-byte register. This is 


then divided by 211, and the remainder is 
doubled to give the hash table address 
associated with the particular BCD. All 
identifiers which hash to the same address 
are placed ina chain; in particular, all 
dictionary entries with the same BCD will 
be in the same hash chain. 


If TOM, DICK, and HARRY occur in the 
same DECLARE statement in that order, and 
they all hash to the same address in the 
hash table, the address in the hash table 
will point to HARRY's entry, which contains 
the address of DICK, which, in turn, con- 
tains the address of TOM. 


When no further BCD entries are to be 
made in the dictionary, and all BCD iden- 
tifiers in the source text have been 
replaced by dictionary references, the hash 
table is deleted. 


Dictionary Logical Phase 31 


A test is made at the start of each list 
of attributes, to ensure that any list of 
attributes at one level of factoring in a 
DECLARE statement is consistent. 


“ant “avan a —— ———————————————————— 


Expressions specified for array bounds, 
string lengths, and initial value iteration 
factors must be evaluated at object time, 
or at allocation time if the variable is 
controlled. The expressions are placed 
temporarily at the end of the text, and are 
later moved by Phase FV and placed immedi- 
ately following the BEGIN, PROCEDURE or 
ALLOCATE statement to which the declared 
variable belongs. The expression results 
are assigned to pseudo-variables generated 
by the compiler. These serve two purposes: 
first, the assignment statement appears as 
a normal PL/I statement and need not be 
treated as a special case; secondly, the 
pseudo-variable contains the dictionary 
reference of the variable and information 
concerning the destination of the expres- 
sion. Compiler functions with a format 
Similar to the pseudo-variables are also 
created. The function result is the speci- 
fied array bound, or string length.  Com- 
piler functions are created for two purpos- 


es: first, to set bounds for base elements 
of structures when the Structure bound is 
an expression, or to set the bounds of 


temporary arrays; and secondly, to set the 
storage address of a dynamically defined 
item immediately before its use. The for- 
mats of all the compiler pseudo-variables 
and functions appear in Appendix D.8. 


A PROCEDURE or ENTRY statement may have 
more than one label. Each label must nave 
a data description to indicate the type of 


data returned when the label is invoked as 
a function, and also the type of data to 
which the expression in a RETURN 


(expression) must be converted. These need 
not be the same: there must therefore be 
provision for two data descriptions for 
each label. A PROCEDURE or ENTRY statement 
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may Specify parameters. The descriptions 
of these identifiers, obtained from DECLARE 
Statements or default rules, are used for 
prologue construction, but not for pararet- 
er matching. Any data description given on 
these statements is to be used for  conver- 
sion at a RETURN (expression), but not for 
determining the result returned by a func- 
tion reference. 


Parameter descriptions for use in param- 
eter matching, and data descriptions used 
for determining the type of data returned 
by a function reference, may be specified 
by the source programmer in an ENTRY dec- 
laration. If these are not given, default 
and implicit rules must be used to build a 
data description, but no parameter descrip- 
tion can be given. 


Given the foregoing requirements, the 
dictionary entries describing an internal 
entry point are as given in Figure 6. 


The set of dictionary entries A, B, C, 
D, E is repeated for each label associated 
with the PROCEDURE or ENTRY statement. The 
entry F will point to entry A for the first 
label only. D will point at the label with 
which it is associated. It should be noted 
that B and C may coincide. 


The entries type 1 for PROCEDURE, ENTRY, 
and BEGIN statements are chained amongst 
themselves in the following way. Each 
entry type 1 belonging to a PROCEDURE or 
BEGIN statement contains the dictionary 
reference of the entry type 1, of the next 
PROCEDURE or BEGIN statement in the source 
program, and also of the entry type 1 of 
the immediately containing block. 


The entries type 1 of PROCEDURE and 
ENTRY statements belonging to a single 
procedure are chained together in a circu- 
lar manner. If there are no ENTRY state- 
ments the entry type 1 of the PROCEDURE 
Statement points at itself. 


External entry points are described by 
dictionary entries termed entry type 4. 
They contain data descriptions of the value 
returned when referenced as a function, and 
may contain descriptions of parameters. 


Formal parameters which are entry points 
are termed entry type 5, and parameter 
descriptions which are entry points and are 
pointed at by types 3, 4, or 5 are termed 
entry type 6. 


r--->| | 
| r-->| Dictionary entry for entry label ¡A 
| I r—-| | 
[|] '------------------------------------- 4 
EN 
I|] o ao 1 
|| t->| Entry type 2. Used to provide | 
LI | data description of target in | B 
{|---| RETURN (expression). | 
[|| '-----~------------------------------- 1 
LI 
LI ponm eee 1 
EN | V 
LI "peer Ee EE 1 
|] t->| Entry type 3. This entry is used | | Second entry type 2. | 
LI | to point at the data description C | | Used to provide data description | 
| *---| and parameter descriptions for para-|D | of value returned when label A [C 
| r--| meter matching. | | is invoked as a function. This | 
| | Lain T--------- T—-------------- T7-7--— | entry may, and usually will, coin- | 
| | | | | | cide with B. | 
LA | | | LE J 
| | | bee eiectum 1 Weeer 1 
| | | | | 
E V V V 
pub. press Sen EE i EE eedem 1 
| | | Description of | | Description of | | Description of 
Ii | IE | [E1 | | E2 
| | | first parameter | | second parameter | | each parameter | 
| f- stars Areta J Lenk Se E O J lunc e E E Eu J 
| | 
Lil) qoe met PERI EE cse ee I 1 SE O EE 1 
| | | Entry type 1 for | | Formal parameter | | Description of para- | 
| t->| PROCEDURE or [F | type 1 entry IG | meter used in prologue[H 
L.-- | ENTRY statement | | | | construction | 
pills te oe pose J (efase quer J ree E ERR 4 
| ^ | A 
| | | | 
iunc nce datam J ea ee AUN eee 4 
Note: There is an entry E for each parameter described in D. 


Figure 6. 


Phase ED 
Phase ED simply moves a set of subrou- 
tines, which handle certain features of the 


list processing facility, into the communi- 
cations region and sets a register to point 


at them. The routines will later be used 
by phase EL. 
Phase EG 

Phase EG has two main functions. The 
first is to set up a hash table, and to 
insert the label entries left in the dic- 
tionary by the Read-In Phase into hash 
chains. The second function of the phase 
is to create dictionary entries for  PROCE- 
DURE, BEGIN, and ENTRY statements, and to 
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Dictionary Entries for an Internal Entry Point 


construct chains linking entries of  parti- 
cular types. 
For  PROCEDURE-BEGIN statements, entry 


type 1 dictionary entries are created (see 
Appendix C.2), and block header chains are 
set up to link these entries sequentially. 
A containing block chain is also set up to 
link each entry with that of its containing 
block. 


On the appearance of PROCEDURE state- 
ments, circular PROCEDURE-ENTRY chains are 
initialized to link the entry type 1 dic- 
tionary entries of the PROCEDURE and ENTRY 
Statements of the same block. The formal 
parameter list is scanned, and formal par- 
ameter type 1 entries are created and 
inserted into the hash chain. Details of 
the PROCEDURE-ENTRY chains appear in Appen- 
dix O Za 
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The attribute list is scanned and an 
options code byte is created in the entry 
type 1 (see Appendix C.2). A check is then 
made for invalid and inconsistent  attri- 
butes. CHARACTER and BIT attributes are 
processed, and second file statements (see 
Appendix D.8) are created if necessary. 
Precision data are converted to binary, and 
dictionary entries are created for pictures 
(see Appendix C.7). 


Statement labels are scanned and their 
entry type 2 dictionary entries are creat- 
ed. The relevant data bytes in the dic- 
tionary are completed by default rules (see 
Appendix C.3). 

For 


ENTRY statements, entry type 1 dic- 


tionary entries are created (see Appendix 
C.2), and the circular PROCEDURE-ENTRY 
chain is extended. Formal parameters, 
attributes, and labels are processed in a 
Similar manner to those for PROCEDURE 
Statements, except that the options code 
byte is not created. 
Phase EI 

Phase EI scans the chain of DECLARE 


Statements set up by the Read-In Phase, and 
modifies the statements to assist Phase EK 
as follows: 


Structure Level Numbers: these are con- 


verted to binary. 


Factored Attributes: parentheses enclosing 
factored attributes are replaced by special 


code bytes, so that Phase EK can distingu- 
ish them easily. A factored attribute 
table is set up. It consists of slots 
corresponding to each factored level. Each 


slot contains the address of the attribute 
list associated with that level, and the 
address of the slot for the containing 


level. 
The following attributes are processed: 


DIMENSION: dimension table entries (see 
Appendix C.8) are created in the dictionary 
and the source text is replaced by a 
pointer to the entry. Fixed bounds are 
converted to binary and inserted in the 
table. A second file statement (see Appen- 
dix D.8) is created at the end of the text, 
for adjustable bounds, and a pointer to the 
statement is inserted in the dimension 
table. Identifiers with identical array 
bounds share the same dimension table. 

constants 


PRECISION: precision and scale 


are converted to binary. 
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INITIAL: dictionary entries are created 


for INITIAL attributes. 
INITIAL CALL: second file statements 
created for INITIAL CALL attributes. 


are 


CHARACTER and BIT: 


fixed length constants 
are converted to binary; a code byte marker 
is left for * lengths (see Appendix C.8). 
Second file statements (see Appendix D.8) 
are created for adjustable length con- 
stants, and the source text is replaced by 
pointers to the statements. 


DEFINED: second file statements (see 
Appendix D.8) are created and the source 


text is replaced by pointers to the state- 
ments. 
POSITION: the position constant is con- 


verted to binary. 


PICTURE: 
dix C.7) 


a picture table entry (see Appen- 
is created and inserted into the 
picture chain; similar pictures share the 
same picture table, The source text is 
replaced by a pointer to each entry. 
USES and SETS: USES and SETS attributes 
are moved into dictionary entries, and 
pointers to the entries replace the source 
text. 





LIKE: BCD entries are created for iden- 
tifiers with the LIKE attribute. 


LABEL: if the LABEL attribute has a list 
of statement label constants attached, a 
Single dictionary entry is created. The 
dictionary entry contains the dictionary 
references of the statement label constants 
in the list. 


OFFSET and BASED: Second file statements 
made and text references are inserted 
jin the DECLARE statements for these attri- 
|butes. 
AREA:  Fixed-length specifications are con- 
jverted to binary; second file statements 
lare made for expressions; a code byte, 
[followed by the length of text reference, 
lis inserted in the DECLARE statement text. 


All other attributes, 
constants are skipped. 


identifiers, or 


Phase EL, consisting of modules EK, EL, 
and EM, scans the chain of DECLARE state- 
ments constructed by the Read-In Phase. 


An area of storage known as the 
bute collection area is reserved. 


used to store information about the  iden- 
tifiers, and has entries of a similar 
format to that for dictionary entries. 


Complete dictionary entries are con- 
structed for every identifier found in a 
DECLARE statement. These identifiers can 
be one of the following types: 


1. Data Items (see Appendix C.4) 


this case, the 'true' 
calculated) (see 


2. Structures (in 
level number is 
Appendix C.4) 

3. Label Variables (see Appendix C.4) 

4. Files (see Appendix C.7) 

5. Entry Points (see Appendix C.2) 


6. Parameters (see Appendix C.7) 


7. Event Variables 


8. Task Variables. 


multiple  dec- 
a diagnostic 


Identifiers appearing as 
larations are rejected and 
message is given. 


The attributes to be associated with 


each identifier are picked up in three 
ways . 
First, the attributes immediately  fol- 


lowing the identifier are stored in the 


attribute collection area. 


Secondly, any factored attributes and 
structure level numbers are examined. 
These are found by using the list of 
addresses placed in scratch core storage by 
Phase EI. Each applicable attribute is 
Marked in the attribute collection area, 
and any other information, e.g. dimension 
table address, or picture table address, is 
moved into a standard location in the 
attribute collection area. All conflicting 
attributes are rejected and diagnostic mes- 
sages are given. 


Finally, any attributes which are 
required by the identifier, and which have 
not been declared, are obtained from the 
default rules. 


Section 2 (Compiler Phases): 


entry has been 
linking of 
follow- 


After the dictionary 
made, further processing (e.g. 
chains, etc.) must be done in the 
ing cases: 

1. DEFINED data 

2. Data with the LIKE attribute 

3. Files 

4. Strings with adjustable lengths 
5. Arrays having adjustable bounds 
6. GENERIC identifiers 

7. Structure members 

8. Identifiers with INITIAL CALL 
9. Identifiers with the INITIAL attribute 


list has keen 
it is erased. 


After the declaration 
fully scanned and processed, 


Phase EP 


Phase EP first conditionally marks later 
phases as 'wanted' or ‘not wanted," accord- 
ing to how certain flags in the dictionary 
are set on or off. This assists in the 
load-ahead technique. 


The entry type 1 chain in the dictionary 
is then scanned. For each PROCEDURE entry 
in the chain, each entry label is examined 
for a completed declaration of the type of 


data the entry point will return when 
invoked as a function. If this has pre- 
viously been given in a DECLARE statement 


nothing further is done, otherwise entry 
type 2 and 3 dictionary entries are con- 
structed from default rules (see Appendix 
C.2). If this default data description 
does not agree with the description derived 
from the PROCEDURE or ENTRY statement, a 
warning message is generated. 


At each PROCEDURE entry, the chain to 
the ENTRY statement entry type i is fol- 
lowed. Each statement is treated in a 
similar manner to that for a PROCEDURE 
entry type 1. 


The CALL chain is then scanned and, at 
each point in the chain, the dictionary is 
searched for the identifier being called. 
If the correct one is not found, a dic- 
tionary entry for an EXTERNAL procedure is 
made (see Appendix C.2), using default 
rules for data description. Before making 
the entry, the identifier is checked for 
agreement with any of the built-in function 
names. If there is agreement, a diagnostic 
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message is generated, and a dummy  diction- 
ary reference is inserted. 


If an identifier is found, it is 
examined to see if it is an undefined 
formal parameter. If it is, the formal 
parameter is made into an entry point, 


again using default rules for data descrip- 


tion. If it is not, or if the declaration 
of the formal parameter is complete, the 
type of entry is checked for the legality 
of the call. A diagnostic message is 
generated if the item may not be called. 
In all cases, the item called is marked 


IRREDUCIBLE if it has not previously been 
declared REDUCIBLE. 


Phase EW 


loaded 
the 


Phase EW is an optional phase, 
only if any LIKE attributes appear in 
Source program. 


LIKE chain which 
Phase EK, and 
entry for any 


This 
has been 
completes 


phase scans the 

constructed by 

the dictionary 
structure containing a LIKE reference. 
When a structure in the LIKE chain is 
found, its validity is checked, and dimen- 
sion data and inherited information are 
saved. The dictionary is scanned for the 
reference of the "likened" structure and 
the entry is checked for validity. 


This dictionary entry (see Appendix C.4) 
is copied into the dictionary, with altera- 
tions if there is a difference between the 
Original structure and this structure with 
regard to dimensioned data. If both struc- 
tures have dimensions a straight copy is 
made; if the structure with the LIKE attri- 
bute has dimensions and the likened struc- 
ture has not, the dimension information is 
added to the copy; if the structure with 
the LIKE attribute is not dimensioned and 
the likened structure is, then the dimen- 
sion data is deleted from the copy. Inher- 
ited data is added to the copy. If an 
error is found, the structure with the LIKE 
attribute is deleted and a base element 
copy of the master structure is inserted 
instead. Where copies of entries occur 
which refer to dimension tables with varia- 
ble dimensions, the dimension table entry 
is copied, and new second file dictionary 
entries and statements are created. Simi- 
lar entries must be made if the structure 
item has been declared to be an adjustable 
length string, or has been declared with 
the INITIAL attribute. 
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Phase EY 


Phase EY is an optional phase which 


|processes all ALLOCATE statements. 


The second file is scanned first and ail 
pointers to the dictionary are reversed. 
All ALLOCATE statements using the DECLARE 
chain are then scanned, and the dictionary 
references of allocated items are obtained 
by hashing the respective BCD of each item. 
The attributes given on the ALLOCATE state- 
ment for an item are collected together. 


A copy of the dictionary entry of the 
allocated item is then made (see Appendix 
C.4), and the ALLOCATE statement is set to 
point to it. The dictionary entry is 
completed by including any attributes given 
on the ALLOCATE statement, and copying any 
second file statements from the DECLARE 
chain which are not overriden by the ALLO- 
CATE statement. 


| In the case of an ALLOCATE statement in 


[which a based variable is declared, no copy 
lof the original dictionary entry is 
| required. The BCD is replaced by the 
|oriainal dictionary reference. 

| All pointer qualified references in the 
[text are checked to determine that the 
[qualified variable is based. For every 
Joccurrence of a variable with a different 
[pointer a new dictionary entry is made. If 
|the variable is a structure the entire 
[Structure is copied. A PEXP second file 
[Statement is made for the pointer and the 


|' defined' 
lis set to point to it 
[declared pointer. 


slot in the new dictionary entry 
instead of to the 


| The BCD of the pointer and the based 
[variable in the text are replaced by the 
[new dictionary reference followed by pad- 
[ding of blanks which will be removed by 
[phase FA. 

| The based variable can be the qualified 
Jname of a structure member. If this is so, 
|the name is checked for validity. Only the 
|first part or lowest level of the qualified 


[name in tne text is replaced ky the dic- 
[tionary reference of the member. It is 
|preceded by a special marker to tell phase 


|FA that a partially replaced name follows. 


Phase FA 


Phase FA scans the text sequentially. 
If, during the scan, qualified names are 
found with subscripts attached, they are 


reordered so that a single subscript list 
appears after the base element name. The 


dictionary is Scanned and references 
obtained for any identifiers which are, 
contextually, file, event, pointer  varia- 
bles, or programmer-named ON conditions. 
If no reference is available, a new dic- 
tionary entry is made. The identifier is 
then replaced in the text by the dictionary 


reference. 


If a constant marker is found, the 
dictionary is scanned to check if the 
constant is present. If it is not, a new 


dictionary entry is made (see Appendix C.7) 
and the resulting reference replaces the 
constant in the text. 


FORMAT marker is found, the 
scanned for a picture entry 
there is no agreeing 
entry is made (see 
picture chain is 
reference replaces 
text. 


LE uw P 
dictionary is 
in agreement. If 
entry, a new dictionary 
Appendix C.7) and the 
updated. The dictionary 
the format marker in the 


chain is removed from CALL 
The appearance of PROCEDURE, 
BEGIN, END, and DO statements results in 
adjustments to the level and count stacks. 
If statement introduction code bytes appear 
(such as SN, SL, CL, and SN2), the current 
statement number is updated. All data 
items associated with the PROCEDURE, BEGIN, 
ENTRY, and DECLARE statements are removed, 
leaving only the statement identification 
and the keyword. 


The CALL 
statements. 


Phase FE 


When an identifier is found, the hash 
chain is used to scan the dictionary for a 
valid entry. If one is found, its dic- 
tionary reference replaces the identifier 
in the output text. If no valid entry is 
found, and the BCD does not agree with any 
entry in the tables of BCDs of PL/I built- 
in functions, then a dictionary entry is 
made as if the identifier was declared in 
the outermost procedure. However, if the 
BCD agrees with a function name, and it is 
not in a SETS position, a function entry is 
made in the dictionary, and its reference 
is used to replace the identifier. 


If a left parenthesis is found, the 
previous dictionary entry is checked for an 
array, function, or pseudo-variable. If it 
is one of these, the relevant marker is 
inserted in the text before the parenthesis 
(see Appendix D.1). 


Checks are also made for the positions 
of function references in assignment 
Statements. Any dictionary references 
encountered in the input file are moved 


directly to the output file. 
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PROCEDURE, BEGIN, DO, and END statements 
cause the current level count to be updat- 
ed. 


Phase FI 


Phase FI scans the text and checks, 
where possible, the validity of dictionary 
references found. References in a GOTO 
statement are checked that they refer to 
labels or label variables and that the 
subsequent branch is valid. The code byte 
for GOTO is changed to GOOB (see Appendix 
D.1) if the branch is to a label constant 
outside the current PROC or BEGIN block, 
If the branch is to a label variable, GOOB 
is set up unless a label value list was 
given at the declaration, and all members 
of the list lie within the current block. 


| List processing based variables in ALLO- 
ICATE, FREE, READ, WRITE, and LOCATE state- 
Jments are marked as requiring a Record Dope 
[Vector (RDV). Variables in TASK and EVENT 
Joptions on CALL statements are checked for 
|validity. 


References are checked 
where a file is expected. 
lists are checked for validity, and Data 
Element Descriptors (DEDs) and symbol bits 
are set on for all variables found in the 
lists. 


if they appear 
Items in data 


Any errors which are found cause diag- 
nostic messages to be generated and dummy 
references to be placed in the text in 
place of erroneous references. 


Phase FK 

Phase FK scans the attribute collection 
area for entries with the SETS attribute. 
The SETS lists in the dictionary entries 
are scanned, and their syntax checked. 
Identifiers are counted and replaced by 


their dictionary references. Constants are 
counted, converted to binary, and arranged 
in ascending order in the dictionary entry. 


Phase FO 


Phase FO makes a dictionary entry for 
each ON condition mentioned inside a block. 
For ON CHECK conditions multiple dictionary 
entries are made (see Appendix C.7), one 
for each BCD. If a similar condition is 
mentioned more than once in a block, only 
one dictionary entry is made for that 
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condition, except for file conditions, ON 
CONDITION, and ON CHECK, when separate 
dictionary entries are made for each dif- 
ferent BCD name. 


SIGNAL and REVERT statements are treated 
in a similar manner to ON statements. 


The dictionary entries for each BCD name 
associated with file or CONDITION condi- 
tions are checked and, if in error, the ON, 
SIGNAL, or REVERT statement is replaced by 
an error statement. A diagnostic message 
is generated. 


The BCD name of each file entry referred 
to in ON, SIGNAL, and REVERT statements is 
examined. If the BCD is SYSIN or SYSPRINT, 
the dictionary reference of the file entry 
is placed in a slot in the communications 
region. 


made to ensure that formal 

not appear in CHECK and 
NOCHECK lists. A single dictionary entry 
is created for each CHECK and NOCHECK list 
and a pointer to the entry is placed in the 
relevant entry type 1. 


A check is 
parameters do 


When dictionary entries are made for 
CHECK lists, one of three different check 
codes is used depending on whether the BCD 
is an ENTRY LABEL, a LABEL CONSTANT, or a 
variable. 


List Processing POINTER and OFFSET vari- 
ables in CHECK lists are treated as data 
variables. BASED variables may not appear 
in CHECK lists. 


A dictionary entry is made for the list 
processing AREA condition. This condition 
is always enabled and may not appear in a 
condition prefix. 


Dictionary entries are also created for 
each ON condition which is disabled for a 
particular PROCEDURE or BEGIN block, and 
for each ON condition whose status is 
changed within the block. Pointers to 
these dictionary entries are placed in the 
relevant entry type 1. 


All dictionary entries for ON conditions 
are placed in the AUTOMATIC chain for the 
relevant PROCEDURE or BEGIN block. 


A further, quite distinct, function of 
this phase is to substitute error state- 
ments for all statements containing dummy 
dictionary references (which have been 
inserted by previous phases on detecting a 
severe error). If a dummy reference is 
found in the second file, the compilation 
is aborted. 


an element of a label array is 
appearing as a statement 


Wherever 
initialized by 
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label, an assignment to a compiler label 
has been inserted by the Read-In phase. 
Phase FO checks the validity of each such 
assignment; for each array with this type 
of initialization, a second file dictionary 
entry is made, and all assignments to the 
array are chained. 


Phase FQ 


Phase FQ checks the validity of each 
item in the PICTURE chain in the dictionary 
(see Appendix C.7). 


The precision for each correct picture 
is calculated, together with its apparent 
length, and stored in its dictionary entry. 
A data byte is created in the entry for use 
by Phase FT. 


Invalid pictures cause appropriate diag- 
nostic messages to be generated. 


Phase ET 
Phase FT performs certain housekeeping 
tasks. These are as fcllows: 


The second file entries are scanned 
and pointers to each entry are insert- 
ed in the associated dictionary entry 
(see Appendix C.7). 


1. 


Each item which has a storage class is 
inserted into the appropriate chain 
for that class (see Appendix C.4). 


Constants are placed in the constants 
chain and their apparent precision is 
calculated. Sterling constants are 
converted to pence. 


Dimension tables are separated for 
items which are not in structures, but 
which are arrays having Similar 
bounds, but with different element 
lengths. 


Items which are members of Structures 
and which have “inherited" dimensicns, 
i.e. are contained in a structure 
which itself is dimensioned, are made 
to inherit their dimensions. If a 
base element of a structure inherits 
dimensions which are not constant, 
second file statements (see Appendix 
D.8) are set up to initialize the 
bounds in the orject time dope vector. 


Items which have expressions to be 
evaluated at prologue time, e.g. rar- 


ameter descriptions for entry points 
and defined items, are placed in the 
AUTOMATIC chain for the appropriate 
block. 


7. The dictionary entry for any item 
described by a picture is expanded by 
the precision and scale or string 
length, extracted from the picture 
table entry. Identifiers of different 
modes sharing the same picture table 
are now placed in separate tables. 


8. The ‘dope vector required bit (see 
Appendix cC.5) is set on where neces- 
sary. 


9. When a label array is found which has 
initial label statements for any of 
its elements, the chained statements 
are moved into the second file. The 
original statement is left in the 
text, to be removed by Phase FV. 


10. Dictionary entries similar to label 
BCD entries are made for all TASK 
variables. 

Phase_FV 

Phase FV scans the second file and 


reverses the pointers to the dictionary. 


are 
C.5). 


Dictionary entries for DEFINED data 
completed (see Appendix C.4 and 
Overlay and correspondence defining are 
differentiated between, as are static and 
dynamic defining. A preliminary check of 
the validity of defining is also carried 
out. 


When PROCEDURE and BEGIN statements are 
encountered, any second file statements 
associated with data in the AUTOMATIC chain 
for that block are inserted in the text 
following such statements. 


When ALLOCATE statements are found, any 
second file statements associated with the 
item being allocated are inserted in the 
text following the statement. 

When a reference to dynamically defined 
data is found, the base reference is 
inserted into the text following the 
defined reference. 


Statement is 
not 


When an initial label 
encountered in the main text, it is 
copied into the output string. 


a POINTER in 

second file 
defined slot 
the 


The dictionary reference of 
a PEXP (pointer expression) 
statement is inserted into the 
of the associated based variable. If 
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[based variable is a structure this ref- 
|erence is propagated throughout the struc- 
|ture. The PEXP statement is then deleted. 


| A similar procedure is performed for 
[|BVEXP (based variable expression) second 
jfile statements whereby the dictionary ref- 
{erence of the AREA is inserted into the 
{dictionary entry of the associated OFFSET 
| variable. 


| ADV second file statements referring to 
|a BASED variable are checked for compliance 
[with the (F) implementation rules. If the 
|rules are obeyed, the dictionary entty of 
[the "'bound' variable is inserted in the 
lappropriate slot in the multiple table 
jentry. 


| If an MTF statement refers to a based 
[variable the appropriate Found slot is 
|copied from one multiple table entry to the 
Jother. 


Phase FX 


Phase FX is an optional phase entered 
only if the XREF or ATR (cross reference 
lister and attribute lister respectively) 
options are specified. It scans the  STA- 
TIC, AUTOMATIC, and CONTROLLED chains, and 
the formal parameter lists. 


For each identifier it creates an 
in scratch text storage of the form: 


entry 


[oec qom a one tries 1 
| Dictionary [Text reference] Text chain | 


| reference [to this item | | 


a chain of 
order 


This entry is inserted into 
Similar entries in the alphabetical 
of the BCD of the identifier. 


If the XREF option is specified, the 
text is scanned for dictionary references. 
When the dictionary reference of an iden- 
tifier is found in the text, an entry is 
created in a chain of entries from the 
dictionary entry of the identifier. 


Each member of the chain which rep- 
resents a reference to the identifier, has 
the following form: 

2 bytes 3 kbytes 
p vcr AN ee ETE KREE 1 
| Statement number | Text chain | 
Loc owen Seema Saeed Jf sf O SUM A Et aa J 
Each reference chain for an identifier 


is in scratch text storage. 
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The sorted chain of identifiers is then 
scanned, and for each entry in the chain 
the following actions take place: 


1. The statement number of the DECLARE 
Statement, if any, in which the  iden- 
tifier was declared is printed 


2. The BCD of the identifier is printed. 
For variables having constant  dimen- 
sions and/or constant string lengths, 
these dimensions and lengths will be 
listed. 


3. If the ATR option is specified, the 
dictionary entry of the identifier is 
analyzed and its attributes are print- 
ed 


4. If the XREF option is specified, the 
reference chain for the identifier is 
scanned, and the statement number con- 
tained in each entry is printed 


Finally, all scratch storage is released 
and control is passed to the Pretranslator 
Phase. 


THE PRETRANSLATOR LOGICAL PHASE 


The purpose of the Pretranslator Phase 
is to expand those statements in the lan- 
guage that can be broken down into simpler 
Statements, and to insert explicitly gener- 
ated statements in place of implied ones. 


Second level 
are removed from 
and some of the 
into a form more 
code phase. 


markers (see Appendix D.1) 
internal compiler codes, 
I/O statements are changed 
suitable for the  pseudo- 


and the 
parameter 
temporary 
necessary, 
required. 


examined 
with 


Argument lists are 
matching of arguments 
descriptions takes place, with 
variables being created where 
e.g., where data conversions are 


ON CHECK 
the 


contains 
calls to 


If the compilation 
conditions the appropriate 
library routine are provided. 


Any structure assignments containing the 
BY NAME option are processed. 


If any structure assignment statements 
or structures in I/O lists are detected in 
the program, they are expanded into scalar 
assignments and DO groups. 


If the program contains any array 
assignments, or array expressions in I/O 
lists, these are expanded into DO loops and 


Scalar assignments or expressions. 
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If the program contains iSUB references, 
the subscripts are computed for the base 
array corresponding to the subscripts given 
for the defined array. 


Additions to the Text 


In addition to changing the content of 
the text, the Pretranslator introduces some 
new symbols and grammatical forms into the 
Source text. These are as fcllows: 


The Umbrella Symbol: this is designat- 
ed by the symbol code X'5E', which is 
used to introduce a literal as an 
operand. It is used only as a bound of 
a DO loop, or ina call of the dope 
vector pseudo-variable. 


atements within statements: a list 
of statements may be introduced within 
another statement. In this case the 
inserted list is enclosed in parenthe- 
ses. Statements in the list are given 
no statement number field, but they 
have semi-colons at the end. 


1/0 statements: the forr cf I/O state- 
ments is changed considerably during 
the pretranslator phases, as explained 
in the description of Phase GB. 


LU ob X State ts: Special 
Statements are introduced for manipula- 


ting temporary Storage at object time; 
they have a form similar to  ALLOCATE 
and FREE statements. 


BUY and SELL statements: 


orary Storage: Pretransiator phas- 
temporary variables for func- 
procedure calls where the 
do not match the final param- 
where expressions appear as 
for control variables for DO 
and structure  assign- 


es create 
tion and 
argumerts 
eters, 

arguments, 
loops in array 


ments, and for iSUB defined subscript 
lists. The Pretranslator has no mecha- 
nism for evaluating expressions. 
Therefore,  temporaries which have no 
data type are created for expression 
arguments with no parameter descrip- 
tion. The data type of these temporar- 


ies is completed by the Translator 
generic phase when the resultant data 
type of the expression has been deter- 
mined. 


When the Pretranslator creates a tem- 
porary from an argument which contains 
any array with adjustable bounds or 
adjustable string length, compiler 
functions (see Appendix D.8) are gener- 
ated in-line, to set up the adjustable 
quantities at object time, to enable 
storage of the correct size to De 
acquired by means of the BUY statement. 


The temporary variables created by the 
Pretranslator have dictionary entries 
Similar to variables declared in the 
source program, except that the tempo- 


raries do not have BCD names. 


Phase GA 


phase which 
conStants 


Phase GA is an optional 
scans the STATIC chain for file 
and OPEN control block entries. 


For file constants a DECLARE control 
block is constructed from the file name and 
attributes, while checking the attributes 
for consistency. For file constants with 
the ENVIRONMENT option a dictionary entry 
is constructed, chained from the file con- 
stant, containing the core image of the 
56-byte DECLARE control block. 


For OPEN control block entries an OPEN 
control block is constructed from the 
attributes in the entry, a check is made 
for consistency, and another dictionary 
entry, chained from the OPEN control block 
entry, is constructed. This new entry 
contains the 8-byte core image of the OPEN 


control block. 


When the COBOL option is encountered in 
the ENVIRONMENT string of a FILE statement, 
phase GA sets the low-order bit in the 
fifteenth byte of the FILE dictionary 
entry. Although this action overwrites the 
dictionary reference of the ENVIRONMENT 
string, it is permissible since GA is the 
only phase which processes this string. 


The EXCLUSIVE second level marker is 
recognised in the file attribute dictionary 
entry during the diagnostic check and  con- 
struction of the DCLCB or the OCB. 


Phase GB, 
processes I/O statements. GB 


containing Modules GB and GC, 
removes all 


second level markers from internal charac- 
ter codes (see Appendix D.1). It then 
reorders the options so that either EDIT, 


DATA, Or LIST options appear last. 


In data lists the DO 
moved so that it precedes 


specification is 
the relevant 


list, and the END statement is added. 

In format lists iteration factors are 
expanded. 

RECORD I/O statements for which the 
COBOL file option is recognized are exam- 
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lined for validity by GC. Diagnostics are 
[put out for LOCATE and READ SET statements 
{for which COBOL files are used. A tempora- 
[ry variable is created to assist such data 
[transfers as occur when a COBOL record is 
Jread into or written from a structure which 
[does not contain either wholly binary or 
[wholly character data. 


| I/O activity found within a PROCEDURE or 
|BEGIN block causes the bit X'10' to be set 


[to one in the optimization byte of its 
[entry type 1. 
Phase GK 

Phase GK scans the source text for 
function references. If it finds one, it 
inserts a special marker byte before the 
argument list, followed by: 
| 1. Two code bytes giving information 
| akout the type of function, and wheth- 


er it was called with the TASK option 
2. The current statement number 


3. The current block level and count 


This phase also inserts a special argu- 
ment marker before each argument in the 
list, followed by the reference of the 


corresponding parameter and a code byte to 
show whether or not the argument is speci- 
fied in a SETS list. The number of argu- 
ments present is checked against the number 
given aS required by the corresponding 
dictionary entry. 


| NULL, NULLO, and EMPTY built-in func- 
Jtions are recognised and converted to con- 
[stants. 

|Phase GO 


l This phase acts as a pre-processor for 
[phase GP. 
Phase GP 

Phase GP scans the text for procedure 


and function calls with arguments. These 
are detected by the special markers insert- 
ed by Phase GK. 


Temporaries (see Appendix C.4) are 
created for any arguments which are expres- 


sions. (An expression is defined as being 
any sequence of variables and operators, 
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other than single variables followed only 
by a subscript list, or only by a defined 
subscript list and then a subscript list). 
If a parameter description has been 
declared in an entry declaration, the tem- 
porary which is created is of the same type 
as the parameter description. Otherwise, a 
'chameleon' temporary of unspecified data 
type is created, its type being subsequent- 
ly completed when the expression type has 


been determined by the Translator generic 
phase. 

Expressions are scanned for arrays 
(including partially subscripted arrays), 
structures, or the end of the expression, 
in order to determine the highest form of 


aggregate in the expression, so that the 
correct type of temporary may be created. 


Where the expression contains a partial- 
ly subscripted array, a temporary is creat- 
ed with a dimensionality equal to the 
number of cross sections specified in the 
subscript list. 


When Single arguments are specified 
together with parameter descriptions, the 
arguments are compared with the parameter 
description. If there is a lack of match, 
action may be taken in one of two ways. 


1. If the data types are compatible, a 
warning message is printed, and a 
temporary is created 


2. If the data types are incompatible, an 
error message is printed, and the 
parameter description is ignored 


When the argument is a single partially 
subscripted array which matches the param- 
eter, a special temporary is created which 
has the same dimensionality as the number 
of cross sections in the subscript list, 
and it appears to be defined upon the 
original argument. Code is then generated 
to initialize the temporaries, multipliers, 
and virtual origin from the dope vector of 
the original argument and the subscript 
list. 


Whenever a 
statement contained in 
brackets is inserted in the output text, 
followed by the assignment of the expres- 
sion or non-matching argument to the tem- 
porary. After the end of the PROCEDURE or 
function call, all the temporaries generat- 
ed in the call are released by means of a 
SELL statement in nested statement brack- 
ets. 


temporary is created, a BUY 
nested statement 


for constants 
func- 


Temporaries are created 
which are specified as arguments to 
tions defined by the programmer. 
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| If a TASK, EVENT, or PRIORITY option is 
[present in a CALL statement, then any 
|temporaries which are created are of the 


{*not sold' type. 


If GENERIC entry labels are specified as 
arguments to procedures, a special  dic- 
tionary entry is made which contains the 
argument and parameter description dic- 
tionary references, to enable the Transla- 
tor generic phase to select the correct 
generic member. 


A warning message is printed whenever a 
temporary is created for an item declared 
in a SETS list. 


When subscript lists for the number of 
cross sections are being checked, a severe 
error message is printed if a subscript 
list contains too many subscripts, and the 
statement is deleted. 


Phase GU 


Scans the source text for 
and END statements, and 
that may raise a possible 


Phase GU 
PROCEDURE, BEGIN, 
for statements 
CHECK condition. 


A list of all items currently checked is 
extracted from the CHECK and NOCHECK lists 
present in PROCEDURE and BEGIN statements. 


Items contained in statements that may 
raise a CHECK condition are examined and 
compared with the list of currently checked 
items. If the item appears in the list, a 
SIGNAL CHECK statement is created for it, 
either before the statement concerned (for 
labels and entry names) or after it (for 
variables). 


Phase HF 
The purpose of phase HF is to detect 
Structure assignment statements, possible 


Structure expressions in data lists in GET 
and PUT statements, and nested statements, 
in particular nested structure assignments. 


The leftmost structure in an expression 
Or assignment is used as a basis for 
comparison, and if similar structuring is 
not found throughout the expression or 
assignment, diagnostic messages are issued. 
Any expression containing no structures is 
left unchanged. 


base elements of the structures are 
and if the referenced structures are 
temporary is created for 


The 
found, 
dimensioned, a 


each dimension. It is then added to the 
AUTOMATIC chain for the appropriate block. 
Iterative DO loops are constructed, with 
the temporaries iterating between the upper 
and lower bounds of that particular  dimen- 
Sion. Base elements are assigned, with the 
temporaries as subscripts, and with scalars 


remaining unchanged. END statements are 
created for the DO loops, and SELL state- 
ments for the temporaries. The statements 
which have been created are nested within 


the original statement. 


Phase HK 


—————— man — 


The purpose of Phase HK is to detect 
array or scalar assignments, possible array 
expressions in I/O lists in GET and PUT 
Statements, and nested statements, in par- 
ticular nested assignment statements. 


The leftmost array in an expression, or 
the leftmost array or scalar in an assign- 
ment is used as a basis for comparison, and 
if similar dimensions or bounds are not 
found in the array references, diagnostic 
messages are issued. Any expression  con- 
taining only scalars is left unchanged. 


For unsubscripted arrays which are 
equally spaced in core only one temporary 
is bought, but for all other arrays a 
temporary is bought for each dimension in 
the array. This temporary will be added to 
the AUTOMATIC chain for the appropriate 
block. If the ON-condition name SUBSCKIP- 
TRANGE is enabled for any statement, a 
temporary will be bought for each dimension 
in all cases. Iterative DO loops are 
constructed: for an unsubscripted array 
expression of dimensionality N, the tem- 
porary will iterate between the lower bound 
of the Nth dimension and an evaluated 
product so that all elements of the array 
axe processed; while for other arrays the 
temporaries will iterate between the lower 
and upper bound of the particular dimension 
Of the array. The assignment statement is 
added to the output string with additional 
subscripts where necessary. End statements 
are created for the DO loops, and SELL 
Statements for the temporaries. The state- 
ments which have been created are nested 
within the original statement. 

The syntax of pseudo-variables is also 
checked. 


Phase HP 
Phase HP scans the source text for 
references to items defined using iSUBs. 
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For each reference found, the subscripts 
are computed for the base array correspond- 
ing to the subscripts given for the defined 
array. 


The subscripts of the defined array are 
assigned to temporaries specially created 
for this purpose, which are then used to 
replace the iSUBs in the defining subscript 
list. The base array, with the subscript 
list so formed, replaces the defined array 
in the text. 


The Translator Phase consists of two 
physical phases, the stacker phase and the 
generic phase. The purpose of the Transla- 
tor is to convert the output from the 
Pretranslator into a series of "triples" 
(see Appendix D.4). A "triple" is in the 
form of an operator followed normally by 
two operands. 


The translation is achieved by using a 
double stack, with one part for operators, 
and the other part for operands, and 
assigning two weights to each operator. 
One weight (the stack weight) applies to 
the operator while it is in the stack, and 
the other weight (the compare weight) 
applies when the operator is obtained from 
the input string. 


When an operator is obtained from tne 
input string it is compared with the top 
Stack operator. Depending on the result of 
the comparison, one or other of the two 
operators is switched on to determine what 
action is next to be performed. Apart from 
some special cases, this acticn is usually 
either to continue to fill the stack, or to 
generate a triple. The special cases lead 
to various manipulations cf the stack 
items, after which the translation process 
continues. 


For the purposes of translation, the 
input text to the translator is considered 
to consist of operators and operands only. 
This means that I/O options, etc., are 
regarded as operators. 


After translation, the text string con- 
sists of operands and operators. All 
Statements start with an operator to indi- 
cate a statement number or label, followed 
by the statement type, which may be a 
single operator, as in the case of RETURN 
or STOP, or which may be an operator such 
as a function or subscript marker, followed 
by a list of arguments. This list may also 


include compiler generated statements, 
e.g., DO loops for 1/0 lists. All I/O 
Options are regarded as operators and 
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require no markers before them. The end of 
the source text will be marked by a special 
operator, and compiler generated code, 
which may follow this end-of-program mark- 
er, will appear between the marker and the 
special second-end-of-program marker. The 
end of a block of text will be marked by an 
EOB operator. The program is now assumed 
to be syntactically correct. 


Phase IA 


Phase IA rearranges the source text into 
a prefix form, in which parentheses and 
statement delimiters have been removed, and 
the operations within a statement have been 
so arranged that those with the highest 
priority appear first. 


As operators and operands are encoun- 
tered, they are stored in stacks. Tables 
give the priority of each operator as it 
appears in the input text and in its stack. 


When an operator is found during the 
Scan of the source text, its compare weight 
(see Appendix D.4) is tested against the 
stack weight of the top operator in the 
stack. If the compare weight is the lesser 
of the two, then action is taken according 
to the compare operator. This is referred 
to: as the. compare action: Similarly, if 
the compare weight for the current operator 
found in the scan is greater than or equal 
to the stack weight of the top stack 
operator, action is taken according to the 
top stack operator. This is referred to as 
the stack action. Normally, the compare 
action is to place the compare operator in 


the stack, and to continue the scan, plac- 
ing any subsequent operand in the stack 
until another operator is found. The nor- 
mal stack action is to generate a triple, 


consisting of the top operator in the stack 
and the top two operands, eliminating the 
items from the stack, and inserting a 
special flag as the operand of the triple 
which is now at the top of the stack. The 
source (compare) item is then compared with 
the new top stack item. 


The output text of the stacking phase is 
in the form of a series of triples, i.e. 
Statement types with no operands, and oper- 
ators with one or two operands. If the 
result of a triple operation is to be used 
in a later triple, the appropriate result 
is flagged accordingly. 


Certain phases are marked wanted or not 
wanted at this stage. If the source text 
contains an invocation by CALL or function 
reference, Phases IL and IM are marked 
wanted. If it does not, Phases IL, IM, IN, 
IO, IP, IQ, MG, MH, MI, MJ, MK, MM, MN, and 
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MO are marked not wanted. Phases MB and MC 
are marked wanted when the source text 
contains pseudo-variables or multiple 
assignments; otherwise, they are marked not 
wanted. The DO loop processing phases (LG 
and LH) are marked in co-operation with the 
dynamic  initialization phases (LB and IC). 
If LB and LC are requested, the marking of 
LG and LH is left until that stage of 
compilation; otherwise, LG and LH are 
marked by Phase IA independently. 


| When ALLOCATE and FREE statements occur, 
|phase NG is marked wanted. When LOCATE 
[Statements occur, phase NJ is marked want- 
| ea. 


Phase IG 


Phase IG is an optional phase which is 
loaded to process array and structure argu- 
ments to built-in functions. When aggre- 
gate arguments are given for built-in func- 
tions they are expanded by the structure 
and array assignment phases so that the 
built-in functions appear as base elements, 
Subscripted where necessary. 


Phase GP examines these 
ascertains whether it is necessary to 
create a dummy. If it is necessary, a 
Scalar dummy is created, but the assignment 
of the argument expression is not inserted 
in the text, as this would be an invalid 
aggregate assignment. 


arguments, and 


Phase IG examines the text for a BUY 
Statement for a dummy for an aggregate 
argument to a built-in function, and then 


inserts an assignment triple in the correct 
place in the text. 


Phase IL 


This phase immediately precedes the main 
generic phase. Its function is to obtain a 


block of scratch storage and place the 
entire built-in function table. in that 
area. The starting address of this table 


is then placed in a register, and control 
is released to the main generic processor. 


Phase IM 
Phase IM scans the source text for 
procedure invocations by a CALL statement, 


procedure or library invocations by a func- 
tion reference, and assignments to 
"chameleon" dummy arguments (see Phase GP). 


Any procedure .which is generic and is 
invoked by a CALL statement or function 
reference is replaced ky the appropriate 
family member. If the invoked procedure is 
non-generic, it is ignored. A generic 
library routine invoked by a function ref- 
erence is also replaced by the appropriate 
family member. 


The arguments passed to library routines 
are checked for number and type, anda 
conversion inserted where necessary and 
possible. 


The type and location of the result of 
all function invocations is placed in the 
text which follows the end of the text 
which invoked the function. The resulting 
type of an expression assigned tò a 
"chameleon" dummy is determined and set in 


the dictionary entry which relates to the 
dummy. 
Phase IT 

Phase IT scans the source text for 
function triples and, in particular, the 
built-in functions for which code will be 


generated in-line. Further tests are made 
to detect the functions which, according to 


the method used to generate in-line code, 
are optimizable. This applies only to the 
SUBSTR, UNSPEC, and INDEX functions. All 


references to 'chameleon' temporary assign- 
ments within the scope of these functions 
are removed subject to certain restrictions 
imposed by the function nesting situation. 


Phase IX 


POINTER and AREA 
specified by the 


Phase IX checks that 
references are used as 
language. This phase is loaded only if 
POINTER or AREA references are found, 
declared either explicitly or contextually. 
Error messages are produced if errors are 
found and the statement in error is erased. 


text are 
results is 


Data type triples in the 
Scanned and a stack of temporary 
created containing the values: 


X'4O' for POINTER 
X'02' for AREA 
X'00' for any other data type 


The maximum permitted number of  tempo- 
raries at any one point in a program is 
200. The compilation is terminated if this 
figure is exceeded. 
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| Phase JD scans the text for concatena- 
[tion and unary prefixed triples with con- 
|Istant operands. These are evaluated and 
{the results are placed in new dictionary 
|entries. The references are passed through 
la stack into the corresponding result slots 
|in the text. 


THE AGGREGATES LOGICAL PHASE 


The Aggregates Phase consists of two 
physical phases, the structure processor 
(phase JK) and the DEFINED chain check 
(phase JP). 

The structure processor phase carries 


out the mapping of structures and arrays in 
order to align elements on their correct 
storage boundaries. 


ensures that 
can 


The DEFINED chain check 
items DEFINED on arrays and structures 
be mapped consistently. 


|Phase JI 

| The first function of phase JI is to 
[obtain scratch storage in which the text 
|Skeletons contained in phase JJ are to be 
[held. Phase JJ is then loaded, and its 
[contents are moved to the scratch storage 
[for subsequent use by phases JI and JK. 


|Phase JJ is then released and control is 
|returned to pnase JI. 

| The main function of phase JI is to 
|expedite data interchange activities. A 
{scan of static, automatic, and controlled 
|chains is performed. The chains are reor- 
{dered so that all data variables appear 
[before non-data items. Adjustable PL/I 
[structures and arrays are detected. Each 
jentry in the COBOL chain is mapped as far 
Jas possible at compile-time, removed from 
[the chain, and placed in the appropriate 
| AUTOMATIC chain. 


Phase JK 


| This phase scans the AUTOMATIC, 
land CONTROLLED chains for arrays, 
jtures (including COBOL structures), adjus- 
|table length strings, DEFINED items, AREA, 
[and POINTER arrays and structures, TASK and 
JEVENT arrays, and TASK and EVENT arrays in 
[Structures. 


STATIC, 
struc- 
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For the base elements of structures 
without adjustable bounds or string 
lengths, the following calculations are 
made: 

The offset from the start of the major 
structure 

The padding required to align the ele- 
ments on the correct boundary 

All multipliers of arrays of struc- 
tures. 

For all minor structures and major 
structures the following calculations are 
made: 

Size 


The offset from the preceding alignment 
boundary with the same value as the 
maximum appearing in the structure 


Where a structure contains adjustable 
bounds or string lengths, code is generated 
to call the Library at object time. 

For arrays, the multipliers are calcu- 
lated, unless the array contains adjustable 
items, in which case the Library performs 
the calculations. 


For 
strings, 


adjustable structures, 

code is generated to add a 
ic accumulator register into the 
origin slot of the dope vector, 
accumulator register is incremented 
Size of the item. 


arrays, Or 
symbol- 
virtual 
and the 
by the 


Calculations are made in a similar 
fashion for arrays of strings (in struc- 
tures or otherwise) with the VARYING attri- 
bute. In addition, code is generated to 
set up an array of string dope vectors 
which refer to the individual strings in 
the array using the dope vector. Code is 
also generated to convert the original dope 
vector to refer to the array of string dope 
vectors, instead of to the storage for the 
array. 


The routine which generates code for 
arrays of VARYING strings is also used to 
generate code for the initialization of 
arrays of TASK, EVENT, and AREA variables. 


DEFINED 
lowing way: 


items are processed in the fol- 


Code is generated to set the multipli- 
ers and virtual origin address of cor- 
respondence defined arrays without 
iSUBs in the dope vector of the DEFINED 


items from the defining base dope vec- 
tor. 
Code is generated for overlay DEFINED 
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items if they do not fall into the 
class which is to be addressed direct- 
ly. The code first maps the DEFINED 
item, if necessary, calculates the 
address of the start of the storage to 
be used by the DEFINED item, and final- 
ly, relocates the DEFINED item using 
this address. 


| Dope vector descriptor dictionary 
|entries and record dope vector dictionary 
entries are made for items which need to be 


mapped at object time, or which appear in 
RECORD-oriented input/output statements. 


Phase JP 


Phase JP scans the DEFINED chain, and 


differentiates between the following: 
1. Correspondence defining 
2. Scalar overlay defining 


3. Undimensioned structure overlay defin- 


ing 

4. Mixed scalar-array-structure-string 
class overlay defining 

In correspondence defining, this phase 

differentiates between arrays of scalars 

and arrays of structures. It also checks 


that the 
validly overlay the elements of 
belong to the same defining class, 
the base is contiguous. 


elements of the defined item may 
the base 
and that 


In scalar overlay defining, this phase 


checks that the defined item may  validly 
overlay the base. 

For undimensioned structure overlay 
defining, this phase checks that the ele- 
ments of the defined item may validly 


overlay the elements of the kase. 


For mixed scalar-array-structure-string 
class overlay defining, this phase checks 
that all elements of the defined item and 
all elements of the base belong to the same 
defining class (bit or character), and that 
the base is contiguous. 


THE PSEUDO-CODE LOGICAL PHASE 


The Pseudo-Code Phase accepts the output 
of the Translator Phase, and converts the 
triples into a series of machine-like 
instructions. The transformation into 
pseudo-code is achieved by a series of 
passes through the text; each pass removes 


triples and replaces them by 
until the entire text is in 
pseudo-code form. On completion of this 
phase, control is handed to the Storage 
Allocation Phase in the output stage. 


certain 
pseudo-code, 


eS ———-— 


Pseudo-code is essentially a one-for-one 
symbolic representation of machine code, 
designed so that it can be transformed 
directly into executable machine code by an 
assembly process. 


Pseudo-code is constructed in basic 
units, the majority of which have a stand- 
ard size of three or five bytes. A varia- 
ble sized unit, however, is also available 


to allow flexibility, its length being 
specified by a length code within the unit. 
The formats of pseudo-code instructions are 
shown in Appendix D.6. 


A unit consists of a one-byte operation 
code followed by normally, a two- or four- 
byte field, or on the other occasions by a 
variable length field. The bit pattern of 
the operation code indicates the type of 
unit which it heads. 


Pseudo-Code Items 


———— ———M———Ó——— ÓÁ—— ———- 


In addition 
code item for 
which could be 
pseudo-code items 
convey information 
compiler to another. 


to there being one pseudo- 
each machine instruction 
generated, there are also 
which are produced to 

from one phase of the 


These items of information have the same 
format as a pseudo-code item, so that the 
handling and scanning of the source text is 
Standardized. They do not, however, appear 
in the final object code. 


Register Description 


In all cases where a general purpose 
register appears in pseudo-code, it will be 
described symbolically. When conventional 
registers are required in, for example, 
calling sequences, the registers will be 
referred to physically, as they will be in 
all cases of floating-point register usage. 
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Whenever a new register is required 
while pseudo-code is being generated, a 
symbolic register counter is incremented by 
one and, subject to this new value not 
being greater than 16,383, it is used as 
the symbolic name of the required register. 
When this register is no longer required a 
DROP pseudo-code item is inserted into the 
text to indicate to the Register Allocation 
Phase that the physical register allocated 
to this symbolic register may be 
reassigned. 


Physical general purpose registers will 
be used either as arithmetic registers or 
as parameter registers. 


With arithmetic 
responsibility of 


registers, it is tne 
the pseudo-code genera- 
tion phases to save and restore the reg- 
isters as necessary. This will apply both 
to the general purpose arithmetic registers 
(namely 14 and 15) and to the four 
floating-point registers. Although this is 
of primary interest to the expression 


evaluation phases, it should be realised 
that all phases which generate calling 
sequences must be aware of the current 


status of arithmetic registers, and gener- 
ate code to save and restore ther as 
necessary. 

In the case of parameter registers, 


however, the Register Allocation Phase will 
be able to save and restcre them as 
required. 


As expressions are evaluated, a series 
of intermediate temporary results are 
obtained. These results, or their address- 
es, may be contained in symbolic or 
assigned registers, in a dictionary ref- 
erence, with or without an index register, 
or in workspace. Temporary descriptor tri- 
ples  (TMPD) are inserted in the text to 
enable the correct pseudo-code instructions 
to be generated from the triples. The 
format of TMPD triples is described in 
Appendix D.9. 
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Temporary Workspace 


A block of temporary workspace is used 
to store intermediate results obtained in 
evaluating expressions at object time. 
Pseudo-code phases allocate the next avai- 
lable workspace location within the block, 
and then update the location pointer, 
whenever the necessity to save an inter- 
mediate result arises. The location of the 
intermediate result is then described for 
later phases by a TMPD in the text.  Inter- 
mediate results are only required during 
the execution of single PL/I statements; 
they are never preserved from one statement 
to another. 


At the end of the pseudo-code phases the 
maximum size of the temporary storage 
required in each PL/I program block is 
placed in a dictionary entry. The required 
amount of workspace is then allocated in 


each Dynamic Storage Area (DSA) by Phase 
PT. 
Phase LA 


Phase LA is a utility phase which 
remains in storage during the whole of the 
Pseudo-Code Phase. It provides the main 
scanning routines to handle input and out- 
put text during the Pseudo-Code Phase. 


The routine/subroutine directories in 
this publication give a complete list of 
the routines provided, together with brief 
descriptions of their functions. 


Phase LB 

Phase LB scans through the text for 
PROCEDURE, BEGIN, and  ALLOCATE statement 
triples. 


Whenever one of these is found, a scan 
is made through the immediately succeeding 
second file statements; this is for any IDV 
(initial dope vector) statement referring 
to a variable replication factor in the 
array initial string. Processing of these 
Statements and of the corresponding array 
initial strings is then carried out. 


On completion of this secondary scan, 
the action taken depends on which triple 
was originally found: 


1. For PROCEDURE or BEGIN triples, a scan 
is then made of the AUTOMATIC chain in 
the dictionary. For any scalar varia- 
bles that have been declared INITIAL, 
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a set of triples is created and 
inserted into the text. For any array 
declared INITIAL, the initial string 
is scanned, and a mixture of triples 
and pseudo-code is generated. 
2. For ALLOCATE triples, if the item has 
been declared INITIAL, the initial 
string is scanned, anda mixture of 
triples and pseudo-code is generated. 


Phase LE also marks Phase LG (DO-groups) 


as wanted or not wanted; this is done in 
co-operation with Phase IA. 


Phase LD 


Phase LD scans the STATIC chain for any 
variables which have been declared INITIAL. 


When a scalar variable is found, the 
phase constructs two dictionary entries: 
one for the constant, and one for the 
converted constant. 

For arrays, the phase scans the initial 
value string, creating an initialization 
table in the dictionary. Replication fac- 
tors are converted and inserted into the 


table; treatment of the constants is then 


as described for scalar variables. 


Phase OS converts the constants to their 
specified internal form. 


Phase LG 


Phase LG scans the text for DO loops. A 
stack iS maintained with each entry con- 
taining a description of a DC group. The 
Stacking reflects the nesting of the DO 
groups. For each DO or iterative DO triple 
a new entry is made at the top of the 
Stack. 


DO specification triples are analyzed 
and expressions are assigned to temporar- 
ies; subscripts in the control variable are 
assigned to binary integer temporaries if 
they are themselves variable. At the end 
of each specification, pseudc-code and tri- 
pies are generated to control the loop. 


Triple operators (see 
peculiar to the specification of DO 
are removed from the text. 


Appendix D.4 ) 
loops 


For control variables, other than simple 
scalars, text is placed in the DC stack and 
used at every appearance of the control 
variable in the generated text. During 
this time, a scan is also made for pseudo- 


variables, subscripts, functions, and 


argument markers. 


Phase LR 


The purpose of Phase LR is to save space 
during the expression evaluation phase, LS. 
It provides the initialization for Phase LS 
by obtaining 4,096 bytes of scratch storage 
and setting stack pointers. The scan 
phase, Phase LA, is initialized and Phase 
MP is marked. 


The translate table for scanning tri- 
ples, and the constants for expression 
evaluation are included in this phase and 


are moved to the first 1K area of scratch 
storage. Subroutines required by phase LS 
are also moved into scratch core at this 
time. Finally, control is passed to Phase 
LS. 


Phase LS scans the source text to con- 
vert expression triples to pseudo-code. If 
a triple produces a result, it is added to 
the temporary work stack. 

For the arithmetic triples +,-,*,/,**, 
prefix +, and prefix -, the operands are 
combined to give the base, scale, mode, and 
precision of the result. If conversion is 
necessary, an assignment triple, with the 
target and source typeS as operands, is 
inserted in the text. In-line pseudo-code 
is generated for all operators except ** 


and some complex type * and / operators. 
In these cases, Library calling sequences 
are generated. An intermediate result is 


always produced and the triple is removed 


from the text. 

The operands of comparison triples GT, 
GE, equals, NE, LE, and LT are combined and 
converted as for the arithmetic triples. 
In-line pseudo-code is generated and the 
triple is removed from the text, unless 
both operands are string type, in which 
case a temporary is created. If the next 
triple is a conditional branch, a mask for 
branch-on-false is inserted. Otherwise, 
the result is a length 1 bit string. 


For the string triples CAT, AND, OR, 
NOT, and string comparisons, if an operand 
is zero, TMPD triples, containing the 
intermediate result from the top of the 
Stack, are inserted in the text after the 
triple. The result is a CHARACTER or BIT 
string or a COMPARE operator. 
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When subscript triples appear, a symbol- 
ic register number is inserted in the 
triple. The result contains the dictionary 
reference of the array and the symbolic 
register. 


For function triples, a description of 
the workspace for the function result is 
inserted in the TMPD triples which follow 
the function triples. The function result 
is added to the intermediate stack. 


and divide functions, 
the function and argument triples are 
removed from the text. Arithmetic type 
in-line pseudo-code is generated, with 
modifications for the precision and scale 
factor, and the result is added to the 
intermediate stack. 


For add, multiply, 


With  pseudo-variable triples, a special 
marker is added to the intermediate result 
Stack. 


Other triples which may use an inter- 
mediate result, are examined. If an oper- 
and is zero, two or three TMPD triples, 


containing the intermediate result from the 
top of the stack, are inserted in the text 
after the triple. If both operands are 
zero, the TMPDs for the second operand 
precede those for the first operand. 


Phase LV 


Phase LV provides string handling facil- 
ities for the pseudo-code phases. 


It converts any type of data item to a 
CHARACTER or BIT string, and an assignment 
triple, with the target and source types 
used as the operands, is inserted in the 
text. 


description is 
string descrip- 


A string dope vector 
produced from a standard 
tion. 


|Phase LX (LW, LY) 


| Phase LX consists of three modules, LW, 
{LX, and LY. Module LW acts as a pre- 
|processor for LX and LY, moving constants 
Jinto scratch core prior to loading the 
[String-handling modules. 

| Phase LX scans the source text to 
convert string triples to pseudo-code. If 


a result is produced it is added to a stack 
of intermediate string results. 
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For the comparison triples GT, GE, 
equals, NE, LE, AND LT, both operands are 
already string type. If one operand is 
zero, the operand is obtained from the 
associated TMPD triples. In-line pseudo- 
code is generated if the operands are 
aligned and are of known lengths less than 
or equal to 255 bytes; otherwise, Library 
calling sequences are generated. The 
triple and any TMPD triples are removed 


from the text. 


In the case of the string triples CAT, 
AND, OR, and NOT, the operands are convert- 
ed to string type by phase LV. Zero 
operands are obtained from associated  TMPD 
triples. In-line pseudo-code is generated 
when operands are aligned and are of known 


lengths less than or equal to 255 bytes. 
For the CAT operator, the first operand 
must be a multiple of 8 bits unless the 


strings involved are less than or equal to 
32 bits in length. In-line code is also 
generated for the following cases involving 
non-adjustable varying strings: 


1. Character string concatenation of 
varying strings with lengths less than 
256 bytes. 


2. Bit string operations for AND, OR, 
NOT, concatenation, and comparison 
where the strings are aligned and are 
less than 33 bits in length. 


Otherwise, Library calling sequences are 
generated. The triple and any TMPD triples 
are removed from the text, and the string 
result is added to the intermediate result 
stack. 


For TMPD triples, if the intermediate 
result described by the TMPD triples is a 
string, a complete string description is 
moved from the top of the intermediate 
stack to the TMPD triples. If the TMPD 
triples do not describe a String, they are 
ignored. — 


In-line code is generated for the BOOL 
functions AND, OR, and EXCLUSIVE OR, when 
the third argument is a character or bit 


string constant and the first and second 
arguments are aligned and of known lengths 
less than or equal to 255 bytes. Otherwise 
Library calling sequences are generated. 
Subscript and function triples may produce 
intermediate string results. 


Phase MB 
Phase MB scans the text for pseudo- 
variable markers and multiple assignment 
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markers. A stack of pseudo-variable 
descriptions is maintained, together with 
the left hand side descriptions of multiple 


assignments when they occur. Pseudo-code 
and triples are generated for pseudo- 
variables and the left hand side 
descriptions of multiple assignments are 


put out in the correct sequence. 


|Phase_MD 


| Phase MD uses the SCAN routine LA to 
{scan the text for ADDR built-in functions 
|for which it generates in-line code. It 
lappears before the normal function proc- 
|essor phase and removes all trace of the 
Jin-line function. The general SCAN routine 
lpasses control when these functions are 
| found. 


| For all cases of ADDR the generated code 
jestablishes the start address of the argu- 
|ment. If structure name arguments are 
|present the structure chain is hashed for 
|the first  base-element. For array names 
|the address of the first element is  calcu- 
| lated. 


Phase ME 


identifies all invocations of 
the SUBSTR function and pseudo-variable, 
jall UNSPEC, STATUS, and COMPLETION func- 
tions, and those invocations of the INDEX 
function which can be implemented in-line; 
and generates pseudo-code to perform these 
functions at object time. The scan of the 
text is conducted by the general SCAN 
[routine, and all trace of the invocations 
lof these functions is removed before the 
normal function processor phase is loaded. 
when the end-of-program marker is encoun- 
tered the terminating routine is entered. 


Phase ME 


Phase MG 


Phase MG identifies functions which are 
to be coded in-line, and generates, in 
their place, the pseudo-code to perform the 
relevant function. This phase appears 
before the normal function processor phase 
and removes all trace of the in-line func- 
tion. 


The scan of the text is conducted by the 
general SCAN routine, and control is handed 


to the present phase when one of the 
following functions is found: 

ALLOCATION FLOOR BINARY 

BIT IMAG DECIMAL 

CEIL REAL FIXED 

CHAR TRUNC FLOAT 

COMPLEX UNS PEC PRECISION 

CONJG 


Control is also passed to this phase if 
ABS is found with real arguments. The 
arguments are collected, and the appropri- 
ate routine is entered to generate the 
pseudo-code. When the end-of-program mark- 
er is encountered the terminating routines 
are entered. 


Phase MI 


MI identifies functions which are 
to be coded in-line, and generates , in 
their place, pseudo-code to perform the 
relevant function. This phase appears 
before the normal function processor phase 
and removes all trace of the in-line func- 
tion. 


Phase 


The scan of the text is conducted by the 
general SCAN routine and control is handed 
to the present phase when one of the 
following functions is found: 


MAX 
MIN 


MOD 
ROUND 


If the number of arguments to the MAX or 
MIN functions iS greater than three, a 
Library call is generated. 


MK identifies functions which are 
in-line, and generates, in 
their place, pseudo-code to perform the 
relevant function. This phase appears 
before the normal function processor phase 
and removes all trace of the in-line func- 
tion. 


Phase 
to be coded 


The scan of the text is conducted by the 
general SCAN routine, and control is passed 


to the present phase when one of the 
following functions is found: 

DIM HBOUND 

LBOUND SIGN 

LENGTH FREE 
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Phase ML 
Phase ML scans the source text fcr 
generic entry name arguments to procedure 


invocations. 


Such entry names may be floating arith- 
metic built-in functions or  programmer- 
supplied procedures with the GENERIC 
attribute. When one is found, the correct 
generic family member to be passed is 
selected ky this phase, depending on the 
entry description of the invoked procedure. 


Phase MM 


Phase MM scans through the source text 
for procedure invocations by a CALL state- 
ment, or for procedure or Library routine 
invocations by a function reference. 


Procedure invocations are replaced by an 
external standard calling sequence, and 
Library routine invocations are replaced by 
an external or internal standard calling 
sequence aS appropriate (see Appendix 
D.10). 


| If a 
| EVENT, or 
|IHETSA is 


CALL is accompanied by a TASK, 
PRIORITY option, library module 
loaded rather than IHESA, and the 
{parameter list is modified to include the 
laddresses of the TASK and EVENT variables 
[and the relative PRIORITY. 


phase MP 


the BUY and SELL 
obtaining Variable 
adjustable length 


Phase MP reorders 
Statements involved in 
Data Areas  (VDAs) for 
strings or temporaries, which were created 
by Phase GK. On entering this phase, the 
BUY triples precede the code compiled to 
evaluate the length of storage required for 
the VDA. This evaluation code is included 
between further BUYS and BUY triples, which 
themselves are between the BUY triple being 
considered and its associated SELL triple. 
Phase MP extracts these sections of code 
and places them before the BUY triple of 
the adjustable string temporary. Since 
such BUY triples may be nested, the phase 
maintains a count to record the nesting 
status. 
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Phase MS scans the source text for 
references to subscripted array elements. 


If references are found, pseudo-code is 


generated to calculate the offset of the 
subscripted element in relation to the 
origin of the array. If necessary, further 
pseudo-code is generated to check the sub- 
Script range. 

Optimization of constant subscript 


evaluation is carried out on arrays having 
one subscript which is an integer constant, 
and all following subscripts declared to 
have fixed upper and lower bounds. This 
applies to arrays with fixed-length  ele- 
ments. 


Phase NA 


Phase NA generates pseudo-code for the 
following triples: 


For PROCEDURE! and BEGIN! triples a 
Library call is generated to the FREEDSA 
routine. 


RETURN Library call is 
generated, unless a value is to be returned 
as the result of a function invocation, in 


For RETURN triples a 


which case code is first generated to 
assign the result to the target field, and 
then the Library call is made. If the 


function may return the result as more than 
one data type, a Switch would have been set 
at the entry point to the function, and the 
RETURN statement would test the switch 
value, so that the data type appropriate to 
the entry point is returned. 


GOTO triples either will be invalid 
branches detected by Phase FI, in which 
case they will be deleted, or they will be 
branches to statement label constants in 
the same PROCEDURE or BEGIN block. In this 
case, they will be compiled as one- 


instruction branches. 


GOLN triples are compiled into one- 
instruction branches to the compiler label 
number in operand 2 of the triple. 

A GOOB (Go Out Of Block) 
branch to a Label variable, possibly 
subscripted, or to a label ina higher 
block than the current one (a branch to a 
lower block is invalid). A call is gener- 
ated to a Library epilogue routine,  point- 
ing at a double-word slot containing the 
address of the label and the Pseudo- 
Register Vector (PRV) offset (for a label 
constant), or the invocation count (for a 
label variable). 


triple is a 
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STOP and EXIT statements are implemented 
simply by invocation of the appropriate 
Library routine. 


For IF triples, if the second operand is 
an identifier, or the result of an 
expression which is not a comparison, code 
is generated to convert it to a BIT string, 
if necessary. This BIT string is compared 
to zero, either in-line, or by a call to 
the Library. 


The second operand may be a mask which 
will have been inserted by the expression 
evaluation phase as a result of the compar- 
ison specified in the IF statement. This 
mask is put into a generated instruction to 
branch if the condition is nct satisfied, 
i.e. either to the ELSE clause or to the 
next statement. 


For ON triples, code is generated to set 
flag bits and update the ON-unit address in 
the double-word ON slot in the DSA. 


in-line code is generated to simulate the 
condition. For all other conditions, a 
Library error routine is called. 


REVERT triples generate code to set flag 
bits in the double-word ON slot in the DSA. 


Phase_NG 


Phase NG generates the calling sequences 
to the Library for DELAY and DISPLAY and 
WAIT statements. 


| It generates code to call the library 
[routines which handle ALLOCATE and FREE 
[Statements whose arguments are BASED varia- 
|bles. 


For DELAY statements, the argument has 
to be a fixed binary integer, and, if 
necessary, code is generated for conver- 


sion. 


For DISPLAY statements, the message must 
be a CHARACTER string, or, if necessary, 
converted to one. A parameter list is 
built up to pass to the Library. 


For WAIT statements, the parameter list 
is built up in WORKSPACE. It consists of 


the address of the scalar expression 
(converted to a fixed binary integer), 
followed by the addresses of the event- 


names that appear in each WAIT statement. 
If the scalar expression option does not 
appear, the address of the total number of 
event-names is used. 


anan — dine — — 


For the tasking option WAIT, whose 
argument is an EVENT array, the phase makes 
a 4-byte entry in the parameter list, 
containing the number of dimensions 
involved, and the address of the EVENT 
array dope vector. If the WAIT statement 
contains an EVENT array and no scalar 
expression, the first byte of the parameter 
list is set to X'FF'. 


For ALLOCATE and FREE statements, with 
based variables as arguments, a parameter 
list is built in workspace before a call is 
made to one of the entry points to  IHELSP. 
The parameter list is an 8-byte RDV fol- 
lowed by the address of the AREA variable 
from the IN option if present. 


For ALLOCATE, the 
the SET option is given the value 
by IHESLP. 


pointer-variable in 
returned 


Phase NJ 

Phase NJ and its supporting block, NK, 
generate the calling sequences to the 
library module for the  RECORD-oriented 
input/output statements: DELETE, LOCATE, 
READ, REWRITE, UNLOCK, and WRITE. 


the information 
of the source 
parameter list, 


For each of these calls, 
contained in the options 
Statement is passed by a 
constructed as follows: 


DC A(DCLCB) 

DC  A(RDV|COUNT4 | PNTR2 | SDV3) |0 

DC A(EVENT|LABEL*) | 0 

DC A(SDV.KEYTO|SDV.KEYFROM|SDV.KEY) | 0 
DC A(REQUEST CODES) | 


expr in IGNORE (expr) 

pntr in READ SET (pntr) 

SDV of varying string in READ INTO 
(varying string) 

4 Compiler label as result of LOCATE 


U N [| 
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REQUEST CODES is a full-word containing 
four control bytes with the following mean- 
ings: 


Byte 1 Operation code 
00 READ 
04 WRITE 
08 REWRITE 
0C DELETE 
| 10 LOCATE 
| 14 UNLOCK 
| Byte 2 Group 1 options code 
| 00 SET 
| 04 IGNORE 
| 08  INTO|FROM 
| Byte 3 Group 2 options code 
| O4 KEYTO 
| 08 NOLOCK 
Byte 4 Group 3 options code 


UD VARY INTO 
08 VARY KEYTO 
OC BOTH 


Note that null arguments in the paramet- 
er list or REQUEST CCDES are indicated by 
zeros. 


Both the 
REQUEST_CODES 


parameter list and the 
word are constructed in STA- 


TIC storage. However, if the argument of 
lany of the options refers to AUTOMATIC, 
|CONTROLLED, or BASED storage, the parameter 


Jlist is moved to the WORKSPACE storage for 
the statement; the argument is then provid- 
Jed just before the library call is made. 


| In the case of the LOCATE statement, the 
|phase is responsible for generating code to 
Leer the pointer variable with the pointer 
[value returned in the first word of the RDV 
|by the library. If the BASED variable was 
la structure with a REFER option in an 
jextent definition, it is also responsible 
|for generating code to initialize the 
Jextent variable named in the REFER option. 


The DCLCB parameter is taken from the 
FILE option of the statement; the FILE 
option must be either a file constant or 
file parameter. 


| The record dope vector (RDV) is assumed 
to have been constructed by earlier phases, 
|except in the case of CONTROLLED or BASED 
[variables or CONTROLLED or BASED aggre- 
|gates, when the procedure is as follows: 


| 1. For CONTROLLED or 

| Phase NJ creates a library call to 

| IHESTRA, passing the following argu- 
ments through registers: 


BASED aggregates, 


Register 1 A(D.V) 
Register 2 A(DVD) 
Register 3 A(RESULT.RDV.SLOT) 
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2. For CONTROLLED or BASED strings, the 
phase generates code to construct the 
RDV in the WORKSPACE storage of the 
Statement, using the dope vector of 
the string. 


The IGNORE expression is taken from the 
IGNORE option of the statement and if 
necessary, converted to an integer. 


The EVENT scalar is taken from the EVENT 
option of the statement. 


The KEYTO SDV is derived from the KEYTO 
option of a READ statement. 


The KEY SDV and KEYFROM SDV are derived 
from their respective options. If neces- 
Sary, they are converted to character 
strings. l 


The PNTR is taken from the SET triple of 
the statement or from the BASED variable of 
the LOCATE triple if no SET triple appears. 


Phase NM generates the calling sequences 
to the Library modules for OPEN, CLOSE, 
GET, and PUT statements. 


For OPEN and CLOSE statements, a param- 
eter list is constructed from the options 
given. The options are first checked for 
validity with respect to multiple specifi- 
cations. The arguments on the options are 
checked and converted, if necessary, to the 
correct data type. If no file is specified 


in an OPEN or CLOSE statement, it is 
ignored. The parameter lists are as fol- 
lows: 
OPEN DC  A(DCLCB) 
DC A(OCB) 
DC A(TITLE.SDV) 
DC  A(IDENT.SDV) 
DC A(IDENT.DED) 
DC A(KEYLENGTH) 
DC A(LINESIZE) 
DC  A(PAGESIZE) 
CLOSE DC  A(DCLCB) 


DC  A(IDENT.SDV) 


DC A(IDENT.DED) 
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Null arguments are indicated by zero 


address constants. 


For GET and PUT statements, the Library 
call is in three parts. The initializa- 
tion, data transmission (Phase NU), and the 
termination. The initialization call 
requires a parameter list to be constructed 
from the given opticns. The options are 
checked for legal combinations and the 
arguments examined. 


The parameter list when a file is speci- 
fied is : 


DC A(DCLCB) 
DC A(next statement) 


DC A(binary integer) if SKIP or 
LINE is given. 


For GET and PUT STRING, the argument to 
STRING is checked, and the parameter list 
formed is: 


DC A(SDV of string argument) 

DC A(DED of string argument) 
The termination Library call has no 
parameters. As for the initialization, tbe 


routine used depends on the options given 
in the statement. 


Phase NT 


This phase, which is a preprocessor for 
Phase NU, has two functions: 
1. Initialization of a block of scratch 
Storage for use by Phase NU 


2. Setting up of INCLUDE matrix and 


Library routine entries for edit- 
directed, STREAM-oriented I/O 
statements 


The phase contains all pseudo-code skei- 
etons used by Phase NU. 4096 bytes of 
scratch storage are obtained and the 
pseudo-code skeletons are copied into it. 
The address of the scratch area is then 
passed to Phase NU. 


If a flag has been passed from Phase NM, 
indicating the presence of edit-directed 
1/0, a scan of the text is performed. Lata 
and format list items encountered during 
the scan are associated as far as possible, 
and a sufficient set of Library modules are 
identified for the edit-directed transmis- 
sion specified in the prograr. The INCLUDE 
matrix is updated and dictionary entries 
are made for the required Library format- 
director routines. 


Phase NU 
Data/format lists in 1/0 statements 
produce an internal Library calling 


sequence (see Appendix D.10) for each data 
item and format item pair, using registers 
to point at the data item, the data item 
DED, and the FED for the format item. 


items, aS in array 
items, are 
out of the 


Iterations of data 
input or output, and of format 
achieved by making DO loops 
iterations. 


The data items are transmitted serially, 
with program flow going from an item in the 


data list, to the corresponding format item 
and then to the relevant Library 1/0 
module. On return from the Library module, 


control goes to the code for the next data 
item or, in the case of repeated data 
items, to another iteration of the DO loop. 


Remote format statements are executed in 
a Similar way. After the R format item is 
met, control is passed directly from the 
data list to the format statement until the 
end of the format statement. Control then 


returns to the item in the in-line format 
code of the EDIT statement following the 
appropriate remote format item. However, 


if no format elements remain but some data 
list elements are still present, control is 
passed back to the beginning of the format 
statement. 


An 
which 
will 
to be 
nate. 


R format item referring to a label 
is not attached to a format statement 
cause an object time error condition 
raised, and the execution to  termi- 


Phase OB 


OB scans through the text for 
functions and compiler  pseudo- 

(see Appendix D.8). When a 
function is found, pseudo-code is 
generated to access the operands of the 
compiler functions (e.g., string length, 
array bound), and to place the operand in 
the location specified by the TMPD follow- 
ing the function. Assignments to compiler 
pseudo-variables are treated in reverse; 
the result from the TMPD following the 
assignment is stored in the array bound or 
string dope vector slot specified in the 
compiler pseudo-variable. 


Phase 
compiler 
variables 
compiler 


Phase OB also scans the text for BUY, 
SELL, and BUY ASSIGN statements. The tem- 
porary operands of these statements are 
examined, and if they are CAD or short 
fixed-length strings, they are allocated 
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the next available workspace offset, and 
the BUY and corresponding SELL statements 
are removed from the text. 


Phase OD 

This phase contains the translate and 
test table used by SCAN, and other takles 
and constants for phase OE. A block of 
scratch core is obtained into which the 
tables, routines, and constants are moved. 


beginning of this area is 
register. 


A pointer to the 
passed to OF in a 


Phase OE 


Phase OE translates the following  tri- 


pies into pseudo-code: 
Assignment 
Multiple source assignment 
Multiple target assignment 
ALLOCATE, FREE, BUY, and SELL 

Special assignment 

is generated for the fol- 


In-line code 


1.  Floating-point to floating-point 
2. Fixed binary to fixed binary 
3. Fixed decimal to fixed decimal 
4. Numeric field to numeric field, if the 
pictures given for the operands are 
identical 
5. CHARACTER string to CHARACTER string, 
if the operands are fixed length and 
not more than 256 characters 
6. BIT string to BIT string, if the 
operands are aligned and not more than 
2040 bits 
7. Label to label 
8. File constant to file parameter 
9.  POINTER/OFFSET to POINTER/OFFSET 
10. FIXED CHARACTER string to VARYING 


CHARACTER string and VARYING CHARACTER 
String to VARYING CHARACTER string 
provided that: 

1. The length of the source operand 
is not greater than 256 bytes 
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2. The length of the target string is 
not greater than 256 bytes, if the 
maximum length of the source 
string is not known. 


to 
the 
not 


3. For FIXED CHARACTER string 
VARYING CHARACTER string 
length of the FIXED string is 
greater than 256 bytes. 


Library calling sequences are compiled 
for those cases of CHARACTER string to 
CHARACTER string and BIT string to BIT 


string codes not compiled in-line. 


After checking both AREA operands, AREA 
assignments are performed by the library. 


All other assignment triples are tran- 
Slated into the CONV pseudo-code macro. 


If the source operand is a constant, the 
type of the target operand is inserted in 
the constant dictionary entry, for process- 
ing by the constant conversion phase, and 
the assignment is translated assuming the 
target type. 


same code as for single assignment, except 

that the registers used by the operand 

concerned must not be changed or dropped. 
Library calling sequences are generated 

for 

and pseudo-code markers are left in 

text for insertion of code by Phase OF. 


the 


With SPECIAL ASSIGNMENT if the 
target iS a varying or adjustable string, 
storage is obtained if the target is AUTO- 
MATIC, or allocated if the target is CON- 


TROLLED. The assignment is then translat- 
ed. 
Phase OG 

Phase OG converts to pseudo-code all 
statement numbers, statement labels, PROCE- 
DURE, BEGIN,  PROCEDURE', BEGIN', and end- 
of-program triples. 

The CONVERT pseudo-code macro is 
examined in conjunction with the  OPTIMIZA- 


TION parameter and pseudo-code is generated 
in one of three forms: 


1. Code to call the Library conversion 
package 
2. Code to perform the conversion 


"in-line" 


3. A modified CONV macro which is passed 
to phase OM or OP for processing. 
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| In-line conversion phases which are 
| not required (OM and/or OP) are marked 
| unwanted. 


IGN pseudo-code items and JMP triples 
are removed. The amount of temporary work- 
ing space required by each block of prograr 
is calculated and placed in the workspace 
dictionary entry (see Appendix C.7). 


The format of the text is converted so 
that a pseudo-code item does not span 
blocks. 

The INCLUDE card matrix is formed for 


all the conversion modules required. 


Phase OM 


Phase OM is called when either optimiza- 
tion leveis 00 or 01 are specified. This 
phase scans the pseudo-code for the CNVC 
macros, which phase OG has placed into the 
text as 28-byte entries containing a trans- 
fer vector to select the appropriate con- 
version routine within OM, and replaces any 
such macros with in-line code. 


The conversions inserted by phase OM are 
controlled by phase OG. When OPT=0, cer- 


tain of the simpler FIXED DEC to PICTURE, 
PICTURE to FIXED DEC, and FIXED DEC to 
FIXED BIN conversions are passed to OM. 


When OPT=1, the remainder of the feasible 
FIXED DEC to or from PICTURE and FIXED DEC 
to FIXED BIN conversions are passed to OM 
together with FIXED DEC to CHAR conver- 
sions. 


Certain FIXED DEC to PICTURE conver- 
sions, which phase OG cannot itself effi- 
ciently detect to be uneconoric when  per- 
formed in-line, are recognized by phase OM, 
which inserts the calls to the appropriate 
Library routines. 


[Phase OP 


| Phase OP generates in-line code to per- 
|form BINARY to BIT string, BIT string to 
[BINARY, and FLCAT to FIXED BINARY conver- 
|sions. 
Phase OS 

Phase OS scans through the constant 
chain in the dictionary and converts the 


constants to the required internal form. 
These are then stored in a constants pool, 


and the offset of each constant from the 
Start of the pool is saved in the dictiona- 
ry entry for that constant. 


To permit the correct alignment of the 
constant pool, three scans are made of the 
constant chain; first to convert all double 
word constants, secondly to convert all 
single word constants, and thirdly to con- 
vert all unaligned constants. 


In the first two scans only one pool 
entry is made for constants having the same 
internal form and value. 


A fourth scan is made of the constant 
chain and all constants required to  ini- 
tialize static are converted, but instead 
of inserting these constants in the con- 
stant pool, they are moved into special 
dictionary entries constructed by Phase LB. 


THE STORAGE ALLOCATION LOGICAL PHASE 


The purpose of the Storage Allocation 
Phase is to ensure that every item requir- 
ing storage in a PL/I object program 
obtains a unique location of the correct 
size, located on the correct boundary. 
Items requiring storage include PL/I source 
program variables, dope vectors, dope  vec- 
tor skeletons, temporary variables, work 
areas, data descriptors, symbol tables, 
addressing slots, register save areas, flag 
areas, etc. Storage locations are allocat- 
ed to items in order of descending align- 
ment requirement to avoid wasting storage 
by padding to the required alignment. 


The Storage Allocation Phase is also 
responsible for generating prologues. In 
generating the prologues, expressions which 
determine size of variables, code generated 
by the aggregates phase to initialize dope 
vectors, and code generated by the initial 
values phase, must be extracted and placed 
in the correct sequence in the text. Also, 
when a variable depends for its size or 
initial value upon another variable, the 
requests for dynamic storage must be 
arranged so that the dependant variable 
obtains its storage after the variables 
upon which it depends. 


Since all AUTOMATIC and CONTROLLED stor- 
age is obtained dynamically at object time, 
the Storage Allocation Phase generates code 
to relocate dope vectors when the allocated 
Storage address is known. 


Section 2 


(Compiler Phases): 


|Phase PA 


| The purpose of phase PA is to determine 
[the eligibility of the automatic chains of 
Jany block for STATIC DSAs. Any chain not 
[so far found to ke ineligible for a STATIC 
[DSA is scanned to determine the DSA size. 
[STATIC DSAs are generated for any chains of 
[less than 512 bytes. 


Dictionary entries are generated for 
{STATIC DSAs. This phase also acts as a 
{Spill area for routines used in phases PD 
Jand PH. 

Phase PD 


Phase PD is the first STATIC storage 
allocation phase. It scans the text, and 
for every second file statement encountered 
Sets up a pointer in the associated  dic- 
tionary which points to the second file 
statement. It then sorts the STATIC chain 
so that the dictionary entries occur in the 
order in which the storage for their items 
will be allocated. 

Storage is allocated for simple  non- 
Structured,  non-external variables, RDVs, 
DEDS, SAVE/RESTORE entries, and the BCD of 
entry labels and label constants. Storage 
is also allocated for dope vectors for all 
items in the STATIC chain requiring them, 
{with the exception of EXTERNAL items. A 
[full word address slot is allocated in 
ISTATIC for each STATIC DSA. 


The external section of the sorted 
STATIC chain is scanned and a 4-byte 
addressing slot is allocated for each entry 
label, label constant, external (entry type 
4) entry, built-in function, or EXTERNAL 
item. For each EXTERNAL item the size of 
the external control section is calculated 
and stored in the dictionary entry. 


The constants chain is scanned and the 
offsets of the storage and dope vectors for 


constants in the constants pool are relo- 
cated. 
The current size of the STATIC INTERNAL 


control section is computed and the result 
is passed via the communications region to 
the next phase. 


Phase PH 


Phase PH is the second STATIC storage 
allocation phase. It scans the AUTOMATIC 
chain and CONTROLLED chain for all items 


requiring a dope vector. 
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For each such item a skeleton dope 
vector dictionary entry is generated in the 


STATIC chain (see Appendix C.7). This 
dictionary entry contains a bit pattern 
equal in length to that of the dope vector 


and containing all those values which are 
known at compilation time. In particular, 
it contains as much of the relative virtual 
origin as is known at compilation time, the 
constant bounds and string lengths, and the 
constant multipliers. 


Skeleton dope vectors are not put into 
the STATIC chain for AUTOMATIC variables in 
any block whose DSA is in STATIC, except 
when the variable dimensions bit is set to 
one. 


If the item is dynamically DEFINED, then 
the dope vector is preceded by one extra 
four-byte slot. (In the case of structures 
there is one extra slot for each element of 
the structure.) If the item is a dynamic 
temporary (temporary type 2) or a CON- 
TROLLED scalar string, the virtual origin 
Slot is relocated by the length of the dope 
vector. 


In all cases the skeleton dope vector 
dictionary entry is pointed at by the 
dictionary entry of the associated item. 


The sorted STATIC chain is scanned from 
the first skeleton argument list entry. 
For each such entry, Space is allocated in 
the STATIC INTERNAL control section accord- 
ing to the assembled length of the argument 
list. The offset of each skeleton argument 
list is stored in the OFFSET1 slot of the 
dictionary entry. 


RDV and DVD entries are found on this 
same scan of the STATIC chain. RDV entries 
are allocated eight bytes; DVD entries are 
allocated the specified length. 


A scan is made of the section of the 
STATIC chain containing STATIC INTERNAL 
arrays. Storage is allocated for each 
array according to its size (computed by 
Phase JK) and the offset of the relative 
virtual origin is relocated to the start of 
the STATIC INTERNAL control section. If 
the array is of the VARYING type and it 
needs a dope vector, then storage is allo- 
cated for the secondary dope vector. The 
number of elements is calculated for INI- 
TIAL arrays and stored in the associated 
INITIAL dictionary entry. 


The section of the STATIC chain contain- 

STATIC INTERNAL structures is scanned. 
Storage is allocated for each structure 
according to the size of the structure 
(computed by Phase JK), and this storage is 
Placed on the correct boundary on informa- 
tion supplied by Phase JK. The structure 
member chain for each structure is scanned 


ing 
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and the relative offset of each member is 
relocated to the start of the STATIC INTER- 
NAL control section. Further, on the 
structure member scan, secondary dope vec- 
tors are allocated when required, and the 
number of elements is calculated for  INi- 
TIAL arrays. 


Phase PL 


Phase PL scans the STATIC, AUTOMATIC, 
CONTROLLED, Structure, and PROCEDURE block 
chains for variables which require storage 
for their symbol tables and/or data element 
descriptors. 


When a variable is found which requires 
a symbol table, the variable is joined onto 


the chain of symbol variables for the 
particular block. A symbol takle dictiona- 
ry entry is created for the variable (see 


Appendix C.7), and a chain is set up to and 
from the dictionary entry for the variable. 
The new dictionary entry is joined onto the 
STATIC chain. 


The 
lated, 


Size of the symbol table is calcu- 
and its offset from the start of the 
STATIC control section is stored in the 
symbol table dictionary entry. Throughout 
the allocation of STATIC storage a location 
counter is maintained to contain the next 
free location in STATIC; this counter is 
increased appropriately. 


All symbol variables require a DED and a 
branch is taken to the routine which allo- 
cates them. 


When a variable is found which requires 
a DED, it is determined whether or not the 
DED describes a standard type; there are 
eight standard types, which consist of the 
different kinds of real coded arithmetic 


data that can be obtained by the combina- 
tion of the attributes FIXED/FLOAT, 
BINARY/DECIMAL, LONG/SHORT (default preci- 
Sions only). 


If the DED is of a standard type, a 
check is made for an identical DED that may 
have already been encountered, so that 
there will be only one allocation of stor- 
age for any one type of standard DED. if 
the DED is not of a standard type, it is 
allocated storage of its own. 


If the variable does not already have a 
Symbol table dictionary entry (which  con- 
tains space for DED information), a DED 
dictionary entry is constructed, and the 
offset of the DED in the STATIC control 
Section is stored in it. A pointer in the 
new entry in the dictionary entry for the 
variable is also set up. 


When all data element  descriptors and 
symbol tables in the compilation have been 
processed, all STATIC storage has been 
allocated and the total size of the STATIC 
control section is placed in a slot in the 
communications region. 


Phase PP 


Phase PP extracts all ON condition 
entries and places them at the head of the 
AUTOMATIC chain. It then extracts all 
temporary variable dictionary entries from 
the AUTOMATIC chain and places them in the 
zone following the ON conditions in the 
chain. 


All dictionary entries which are totally 
independent of any other variable are 
extracted, and also placed in the zone 
following the ON conditions. 


The phase 
entries which depend upon some other varia- 
ble in containing blocks or in the zones 
already extracted, and places them in the 
next following zone. Dependency includes 
expressions for string lengths, expressions 
for array bounds, expressions for INITIAL 
iteration factors, and defined dependen- 


cies. This is repeated recursively until 
the end of the chain.. If some variable 
depends upon itself, a warning message is 
issued. 


A Special zone delimiter dictionary 
entry is inserted between each zone in the 
AUTOMATIC chain (see Appendix C.7). A code 
byte is initialized in the delimiter to 
indicate to Phases PT and QF whether its 
following zone contains any variables which 
require storage (i.e., it does not consist 
entirely of DEFINED items, which do not 
require storage), and whether or not the 
following zone contains any arrays of VARY- 
ING strings. 


Phase PT 


Phase PT allocates AUTOMATIC storage, 
scans the CONTROLLED chain, and determines 
the size of the largest dope vector. It 
scans the entry type 1 chain, and for each 
PROCEDURE block or BEGIN block it allocates 
storage for a DSA and compiles code to 
initialize the DSA. 


A two-word slot in the DSA is allocated 
for each ON condition in the block, and 
code is compiled to initialize the slot. 
Space for the addressing vector and  work- 
Space in the DSA is also allocated. 


Section 2 (Compiler Phases): 


then extracts all dictionary 


| Two words are allowed for tasking infor- 
[mation in the DSA if the TASK option is on 
|the external PROCEDURE of the compilation. 


The AUTOMATIC chain is scanned and dope 
vectors are allocated for the items requir- 
ing them. Code is compiled to copy the 
Skeleton dope vector, and to relocate the 
address in the dope vector. 


l Where there is a block with its DSA in 
ISTATIC, dope vector initialization is not 
[performed for the variables in the first 
|region of the AUTOMATIC chain. Address 
[slots in dope vectors for variables in tne 
|remainder of the chain are relccated. 


Storage is allocated for addressing tem- 
poraries type 2 and for addressing con- 
trolled variables, and for the parameters 
chained to the entry type 1. 


The first region of the AUTOMATIC chain 
is scanned and storage allocated for double 
precision variables, single precision vari- 
ables, CHARACTER strings, and EIT strings, 
in that order. 


The first region of the AUTOMATIC chain 
is scanned and storage allocated for 
arrays, relocating the virtual origin. For 
arrays of strings with the VARYING attri- 
bute, the secondary dope vector is also 
allocated and code is compiled to initial- 
ize the secondary dope vector. Correctly 
aligned storage is allocated for struc- 
tures. If a structure contains any arrays 
of strings with the VARYING attribute, the 
storage for the secondary dope vector is 
allocated at the end of the structure. 


A pointer is set up in the AUTOMATIC 
chain delimiter to the second file state- 
ment which has been created. 


The remaining regions of the AUTOMATIC 
chain are scanned and code is compiled to 
obtain a Variable Data Area (VDA) for each 
region. Code is compiled to copy the 
skeletons into the dope vectors and to 
relocate the addresses in the dope vectors. 
During this pass, any DEFINED items which 
are to be addressed directly have the 
storage offset and the storage class copied 
from the data item specified as the base 
identifier. 


Phase QF, 
scans that 
form at this time 
markers inserted. 


which constructs prologues, 
text which is in pseudo-code 
with end-of-text block 
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When a statement label pseudo-code item 
is found, it is analyzed and one of three 
things happens: 


1. The item is saved if it relates to a 
PROCEDURE statement 


2. The item is omitted if it relates to a 
BEGIN or ON block 


3. The item is passed if it relates to 
neither of the first two conditions 


When a BEGIN statement is found, a 
Standard prologue of simple form is gener- 
ated, and code is inserted from second file 
Statements (if there are any) to get the 
DSA, either dynamically, or in the case of 
eligible bottom-level blocks, by using the 
supplementary LWS made available at  ini- 
tialization time. Code is also inserted to 
initialize the DSA and to allocate and 
initialize any VDAs. 


When a PROCEDURE statement is found, it 
is first determined whether it heads an ON 
block or a PROCEDURE block. If it is an ON 
block, a standard prologue (Similar to that 
for a BEGIN block) is generated. If it is 
a PROCEDURE block, a specialized prologue 
is generated. This takes account of the 
manner of getting the DSA, the number of 
entry points, the number of entry labels on 
a given entry point, the number of paramet- 
ers on each entry point, and whether the 
PROCEDURE is a function. 


Prologue code is generated for AUTOMATIC 
Scalar  TASK, EVENT or AREA variables, in 
order to perform the initialization 
required when these variables are allocat- 
ed. 


The code generated by the prologue con- 
struction phase is partly in pseudo-code 
and partly in machine code. The machine 
code (which is delimited by special pseudo- 
code items) has the same form as the code 
produced by the Register Allocation Phase 
(see Appendix D.7). 


DSA optimization is performed under 
certain conditions (see Appendix H). 
At the end of the prologue, the state- 


ment label item saved earlier is inserted 
to mark the apparent entry goint. Code is 
produced to effect linkage to BEGIN blocks 
in sucha way that general register 15 
contains the address of the entry point, 
and general register 14 contains the 
address of the byte beyond the BEGIN epilo- 
que. 


At the end of the text, 
that are not needed are freed, 
is passed to the next phase. 


any text blocks 
and control 
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Phase QJ 


Phase QJ scans the text fcr 


FREE, and EUY statements. 


ALLOCATE, 


On finding an  ALLOCATE 
routine is called which does a ‘look ahead' 
for initialization statements associated 
with the allocated variable, e.g., adjusta- 
ble array bounds or adjustable string 
lengths, and places the text references of 
each statement in the dictionary entry 
associated with each statement. 


statement, a 


If the allocated item has a dope vector, 
code is generated to move the skeleton dope 


vector generated by Phase PH into a block 
of workspace in the DSA of the current 
block. 

Any adjustable bound expressions or 


string length expressions are then extract- 
ed from the text references, and the 
expressions are placed in-line in the text. 


Any information required from previous 
allocations (specified by * in the ALLOCATE 
statement) is extracted from the previous 
allocation, and copied into the workspace. 


Code generated by Phase JK to initialize 
multipliers, etc., is extracted and placed 
in-line, after first loading the variable 
storage accumulator with the dope vector 
size. Phase JK generates code to increment 
the accumulator register by the size of the 
item. 


If the 
ers, code is 


item has no adjustable pararet- 

generated to increment the 
accumulator by the size calculated at com- 
pilation time. If this size is greater 
than 4,096, Phase JK generates a constant 
dictionary entry, which is used in this 
code. 


If the item has any arrays of varying 
strings, the size of the array string dope 
vector is added to a second accumulator 
register. Code is generated to add the two 
accumulators into the second one, which is 


a parameter to a Library routine. A rou- 
tine is then called which extracts the 
Library call inserted by pseudo-code and 


places it in-line in the text. 


Code is inserted after the Library call 
to initialize the dope vector in workspace 
to point to the allocated stcrage. Code is 
generated to transfer the dope vector from 
the workspace to the allocated storage. 


Any initial value statements associated 
with the ALLOCATE statement are extracted 
and placed in-line. The initialization 
statements are then skipped, and the scan 
continues. 


The action on encountering a BUY state- 
ment is similar to that for the ALLOCATE 
Statement, with the following exceptions: 


1. Bound 
line, 
Statements 
look ahead 


and string length code is in- 
bracketed between BUYS and BUY 
- there is therefore no 


2. There is no initial value code 


associated with temporaries 


3. A slot in 
pointer to 
temporary 


the DSA is updated with the 
the allocated storage for a 


The action on encountering a FREE state- 
ment is to generate code to load a paramet- 
er register with the pointer to the allo- 
cated storage for the FREE VDA Library call 
inserted by the pseudo-code. 


‘AGGREGATE LENGTH TABLE‘ 
It is entered only if the 


Phase QX is the 
printing phase. 


ATR (attribute list) option is specified. 
It scans the STATIC, AUTOMATIC, CONTROLLED 
and COBOL chains, and, for each major 


structure or  non-structured array that is 
found, an entry is printed in the AGGREGATE 
length table. 


An AGGREGATE LENGTH TABLE entry consists 
of the source program DECLARE statement 
number, the identifier and the length (in 
bytes) of the aggregate. In the case of an 
aggregate with the CONTROLLED attribute, no 
entry is printed for the DECLARE statement, 
but an entry is printed for each ALLOCATE 
for the aggregate, the source program ALLO- 
CATE statement number being printed in the 
‘statement number’ column. 


Where the aggregate length is not known 
at compilation the word "adjustable" is 
printed in the ‘length in bytes" column. 
In the case ‘of a DEFINED aggregate, the 
word 'DEFINED', and not the aggregate 
length, appears in the 'length in bytes ' 
column. 


THE REGISTER ALLOCATION LOGICAL PHASE 


€ (e — E E — 


The 
Phase is 
appropriate 
types of storage, 


of the Register Allocation 
insert into the text the 
addressing mechanisms for all 
and to allocate physical 


purpose 
to 


general registers where symbolic registers 
are specified or required as base reg- 
isters. 


Section 2 (Compiler Phases): 


This phase comprises two physical phas- 
es, each with a specific function. The 
first, Phase RA, processes the addressing 


mechanisms, while the second phase, Phase 


RF, allocates the physical registers. 


Phase RA 


Phase RA scans the text fcr dictionary 
references, the beginnings and ends of 
PROCEDURE and BEGIN blocks, and the start- 
ing points of the original PL/I statements. 


A dictionary reference, when found, is 


decoded into a word-aligned dictionary 
address and a code. These are used to 
determine what is being referenced. The 
corresponding object time address as an 


offset and base is then calculated. 


If the address required has an offset 
less than 4,096 and a base which is either 
an AUTOMATIC or STATIC data pointer, no 
extra instructions are generated. If this 
is not so, extra instructions are inserted 
in the text stream to calculate the 
required address. The calculation of this 
address is broken down into logical steps 
lin a ‘step tablet." On completion, the 
table is scanned backwards to determine 
whether an intermediate result has been 
previously calculated. The steps which 
have not been previously calculated are 
then assembled into the pseudo-code. 


The compiled code is added either to the 
output stream or to a separate file. The 
code in the separate file is terminated by 
a store instruction to save the calculated 
address. The extra "insertion file" is 
placed in the prologue of the relevant 
block by the next phase. Instructions are 
stored in-line if the referenced item is 
CONTROLLED, if it is a parameter, if fewer 
instructions are required to recalculate 
the base rather than load the stored 
address, or if the reference itself is in 
the prologue. 


If no addressing code is generated, a 
special item is put in text to tell phase 
RF what base to use. 


All relevant information for PROCEDURE 
and BEGIN blocks is stacked and unstacked 


at the start and end of the blocks respec- 
tively. 
At the start of PL/I statements, code is 


compiled to keep the required PREFIX ON 
slots in the Dynamic Storage Area updated. 
On meeting the pseudo-code error marker, 
the calling sequence to the Library error 
package is generated, and the error marker 
removed. 
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If the STMT option has been specified, 
code is generated at the start of each PL/I 
Statement to keep the statement number slot 
in the current DSA up to date. 


Phase RF 


Phase RF scans the text for register 
occurrences, implicit and explicit, and the 
Start and end of PROCEDURE and BEGIN 
blocks. At the beginning of PROCEDURE and 
BEGIN blocks all relevant information is 
Stacked, and is later unstacked at the 
corresponding end. 

classified 


Registers are as assigned, 


Symbolic, or base. 


Assigned registers require the explicit- 
ly mentioned register to be used. If that 
register is not free it is stored. Symbol- 
ic registers may occupy any register in the 
range 1 through 8. An even-odd pair may be 
requested. Base registers may occupy any 
of registers 1 through 8. 


When a register is requested, a table of 
the contents of registers is scanned, to 
determine whether the register already has 
the required value. If it does, that is 
used. If it does not, and it is not an 
assigned register, a search is made for a 
free register and this is allocated if one 
is found. Should no register be free, a 
look-ahead is performed to determine which 
register it is most profitable to free. 


If a register contains a base it need 
not be stored on freeing. If a register 
contains a symbolic or assigned register, 
it may require to be stored when freed, 
depending upon whether it has had its value 
altered since any storage associated with 
it was last referenced. 


At a BALR (Branch and Link) instruction 
it is insured that all the necessary param- 
eter registers are in physical registers, 
and not in storage. 

No flow trace is carried out by the 
compiler. Therefore, the register status 
is made zero at branch-in and branch-out 
points. An exception is at a conditional 
branch. Here the registers are not freed 
after having been saved. 


Any coded addressing instructions are 
expanded when found in-line. At a specific 
“insertion point" in a prologue, any 


addressing instructions in the "insertion 
file" are brought in and expanded. 
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THE FINAL ASSEMBLY LOGICAL PHASE 


The Final Assembly Phase converts the 
pseudo-code output of the register alloca- 
tion phase into machine code, the principal 
functions being the substituticn of machine 
operation codes for pseudo-code operations, 
and the replacement of PL/I and compiler 
inserted symbolic labels by cffset values. 


Loader text is generated for program 
instructions, DECLARE control blocks, and 
OPEN file control blocks, initial values 
defined in the source program, parameter 
lists, skeleton dope vectors, symbol 
tables, etc. ESD and RLD cards are gener- 
ated for external names and pseudo- 
registers. An object listing of the code 
generated by the compiler is produced if 
the option has been specified by the source 
programmer. 


Phase_TF 


Phase TF scans the text, assigns offsets 
to compiler and statement labels, and 
determines the code required for instruc- 
tions which reference lakels. 


The size of each procedure is determined 
and stored in the PROCEDURE entry type 1. 
A location counter of machine instructions 
is also maintained. 


Phase TJ 


Phase TJ scans the text until no further 
optimization can be achieved in the final 
assembly. 


A location counter is maintained for 
assembled code, and offsets are assigned to 
labels. 


The size of each procedure is determined 
and stored in the PROCEDURE entry type 1. 
The amount of code required for  instruc- 
tions to reference labels is also deter- 
mined, while attempting to reduce this from 
the amount estimated by the first assembly 
pass. 


This phase also attempts to reduce the 
number of Move (MVC) instructions by 
searching for consecutive MVC instructions 
which refer to contiguous locations. 


Phase TO sets the four byte slot ZPRNAM, 
in the communication region, to contain the 
first four characters of the first entry 
label of the external procedure, for the 
purpose of object deck serialization. 


Phase TO also produces ESD cards for the 
compiled program. It first makes up six 
standard entries for: 


1. Program Control Section  (CSECT) (SD 
type) allowing room for the compiler 
subroutines if these are present. 

2. STATIC internal CSECT (SD type) 


3. Invocation count (PR type) 


4. Entry points to Library routines, 
IHESADA and IHESADB (ER type) 
5. IHEQERR (PR) 
6. IHEQTIC (PR) 
If the external procedure has the MAIN 


entry for a one-word CSECT (SD 
type) is made up. An entry is made for the 
CSECT 1H entry and entries are made up for 
all entry labels in the external procedure 
(LD type). 


option, an 


The entry type 1 chain is scanned and an 
entry (PR type) is made up for each block 
and procedure. 


The external section of the STATIC chain 
is scanned and entries are made up for: 


1. Built-in functions and library func- 


tions (ER type) 
2. Files (ER type) 
3. STATIC external variables (SD type) 


4. External entry names (ER type) 


5. Programmer ON condition names (SD 
type) 
The CONTROLLED chain is scanned and an 


entry is made up for each CONTROLLED varia- 
ble and task name (PR type). 


The 
is incremented to 
subroutines. 


size of the program control section 
include the compiler 


All STATIC DSAS are put into the STATIC 
INTERNAL control section, their combined 
sizes being allowed for when the size of 


the CSECT is calculated. 


Section 2 (Compiler Phases): 


Module TQ is used to produce a list of 
Library conversion routines required for 
execution of the program. ER type entries 
are made up for each name in the list. 


Phase TT 


Phase TT scans the text and maintains a 
location counter for assembled code. 


Loader text (TXT) and relocation direc- 
tory (RLD) cards for requested combinations 
of load and punch files are generated. 


Nested procedures are unnested at object 
time by suitable manipulaticn of the loca- 
tion counter. The offset of each procedure 
from the start of text is left in the 
PROCEDURE entry type 1. 


Compiler labels are numbered for use by 
the object listing phase, and trace infor- 
mation is set up at entry points. Phase TT 
also generates the text for the compiler 
|subroutines. These subroutines are put out 
lin one of the following combinations: 


| 1. EPILOGUE subroutine 
| DYNAMIC PROLOGUE subroutine 
| STATIC PROLOGUE subroutine 
| 2. EPILOGUE subroutine 
l DYNAMIC PROLOGUE subroutine 
| 3. EPILOGUE subroutine 
| STATIC PROLOGUE subroutine 
Phase UA 
Phase UA generates text for the static 
internal  CSECT; initializes a CSECT for 
each static external variable; and, option- 


ally (if the LIST option is present), lists 
all the text produced for the static inter- 
nal CSECT and provides suitable comments. 


The phase first scans to the start of 
the external section of the STATIC chain, 
generating text for entry labels, label 
constants, compiler labels, file attri- 
butes, label variable BCDs, and DEDs for 
temporaries. Simple variakles found on 
this scan are used, together with the 
labels, to mark the start of the character 
string section of the chain. 


The phase then scans to the end of the 
external section of the chain, initializing 
address constants for external variables, 
external entry names, built-in and Library 
functions,  programmer-defined ON-condition 
names, external files, and label constants. 
Text is made up for the constants pool. 
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scan of the STATIC chain 
Starts at the point left by the previous 
scan, and generates text for dope vector 
skeletons, argument lists, RDVs and DVDs, 
and symbol tables. The scan is terminated 
at the end of the chain. 


The third 


Phase UA makes up RLD cards for the 
address slots for STATIC DSA's and for the 
address slot of the start of the epilogue 
subroutine, if generated. 


Text cards are output to initialize all 
AREA's,  EVENT's, and TASK's. Arrays of 
AREA'S, will have a text card for each 
element. 

Phase UD 

Phase UD generates RLD and TXT cards to 
set up dope vectors at link-edit and load 
time. 

TXT cards are generated for each STATIC 


DSA, containing its length, which is found 


in the STATIC DSA entry. 


TXT and RLD cards are generated to set 
up the dope vectors for structured items 
and any non-structured items appearing in 
the AUTOMATIC chains. The TXT cards are 
derived from the skeleton dope Vector 
entries. The RLD carás are generated for 
each virtual origin slot. 


When the last STATIC DSA has been  proc- 
essed control is released from phase UD. 


Phase UE 


Phase UE initializes those items on the 
STATIC chain not processed by Phase UA. 


The phase first scans to the start of 
the external section of the chain, making 
up text for simple data, and listing label 
variables. 


The second scan Starts at the head of 
the character string section of the chain, 
and initializes dope vectors for all static 
internal variables which need them. 


The third scan corresponds in extent to 
the third scan in Phase UA, but generates 
text for arrays, and simple and interleaved 
Structures. At the end of this scan, a 
test is made to determine whether the 
external procedure of the program has the 
MAIN option. If so, a one-word CSECT 
(IHEMAIN) is made up, to contain the 
address of the principal entry point to the 
compilation. 
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The phase then executes its final scan, 
which extends over the external section of 
the chain, to initialize a CSECT for each 
external variable or external file. 


incomplete text and  RLD 
cards are punched out, and an END card is 
produced for the compiled program. If the 
OBJNM parameter is present for batch compi- 
lation, phase UD punches a NAME card to 
follow tne END card. 


Finally, any 


Phase UF scans the text, and lists, in 
assembly language format, machine instruc- 
tions compiled for the source program. It 
inserts comments in the listing for state- 
ment numbers, statement labels, entry 
points, prologues, and procedure bases. 


Phase UF contains module UH which gener- 
ates NAME from a dictionary reference. UF 
also lists the text for the compiler sup- 
routine. This is done by releasing UH and 
loading module UI which performs this func- 
tion. Upon termination of this phase 
module UI passes control to phase XA. 


The Error Editor Phase is entered at the 
end of all compilations. The first phase, 
Phase XA, examines the dictionary and det- 
ermines whether there are any messages to 
be printed out. If there are none, this 
phase terminates the compilaticn. If there 
are diagnostic messages to be printed out, 
phase XB is loaded and the third section of 
the phase directory is completed. Phase xc 
is then loaded and this together with phase 
XA causes further modules (XF, and blocks 
XG to YY) to be loaded, which process the 
error dictionary entries and print out the 
appropriate messages. 


Phase XA examines the heads of the error 
chains in the first dictionary block, and 
the programmer options which specify the 
severity level of messages required. If 
there are no diagnostic messages to be 
printed, this phase prints out a completion 
message and completes the compilation. If 
diagnostic messages are required, the phase 
loads module XP which completes the phase 
directory for Compiler Control. Phase XB 
is then released and phase XC and the 
message address block XF are loaded. 


The error editor then scans down the 
error message chains and marks each error 
dictionary with an indication of where the 
associated message is to be found. This 
information is obtained from a table in 
module XF. 


The text of all error messages is\ kept 
in modules XG through YY. The messages are 
ordered, by severity, within these modules. 
Module XA will have listed those modules 
which contain messages required for a  par- 
ticular compilation. Module XC loads and 
releases these modules, one at a time, and 
extracts the required messages. Having 
loaded a particular module, the phase scans 
down the associated error message chain in 
the dictionary for error entries associated 
with the module. It accesses the error 
message text and scans it. 


Section 2 (Compiler Phases): 


The message to be printed is built up in 


a print buffer in internal compiler code. 
This involves a translation from EBCDIC 
mode, which is used for the message text 


Skeleton. 
insertion of a statement number, an 


The message is completed by the 
iden- 


tifier, or a numeric value as specified by 
the message dictionary entry. The message 
is segmented, where necessary, to avoid 


Spilling over a print line, translated to 
external code, and finally printed out. 


message dictionary 
entries have been processed, module XB 
returns control to phase XA, which passes 
control to module AA for termination of the 
compilation. 


When all error 
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SECTION 3: CHARTS AND ROUTINE DIRECTORIES 


i ————————————————————— ee eS ee Se Se EE EEN E re 


This section 
to the compiler 
flowcharts and 
tine directories, 


provides a complete guide 
logic, in the form of 
associated tables and rou- 
arranged in phase order. 


Flowcharts 

The flowcharts are presented at three 
levels of detail -- overall, logical phase, 
and physical phase. The overall compiler 
flowchart (Chart 00) points to the logical 
phase flowcharts (Charts 01 through 09), 
each of which appears at the head of the 
set of physical phase flowcharts to which 
it points. The physical phase flowcharts 
point (by means of identifiers placed next 
to the blocks) to the various routines 
used. Entry points to physical phases are 
labeled. 


Where transfer is effected between 
modules within a physical phase, the entry 
label into the entered module is shown as 
follows: 


1. Where the means of transfer is a trans- 
fer vector, an asterisk is shown as the 
label on the flowchart, and a note at 
the foot of the chart states that the 
transfer vector table is located at the 
Start of the module. 


2. When transfer is made from a decision 
block, the block representing the entry 
is labeled. 


With the exception of  "fall-througnh" 
branches, all branches from decision blocks 
are labeled where possible. Where the 
branch is actually a branch table, this 
fact is indicated on the chart, and the 
label of the branch table is given. 


labels have 
following the 


additional 
assist in 


In some cases, 
been given, to 
program flow. 
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Tables and Routine Directories 


A A A A EEN o a e o A———— I —————— 


For each physical phase, a table is 


provided, which lists the operations per- 
formed and identifies the routines and 
subroutines involved. Where applicable, a 


routine directory follows the table. This 
provides an alphanumerically arranged list 
of the routines and subroutines contained 
in the phase, and states their function. 


in some cases, a physical phase compris- 
es more than one module; this means that 
routines contained in different modules may 
be listed together in one routine direct- 
ory. To assist in cross-reference to the 
compiler listings, the fcllowing convention 
has been adopted: if a routine is contained 
in a module whose label is not identical to 
that of the phase under discussion, the 
label of the containing module is inserted 
in parentheses after the routine name in 
the directory. 


In the case of a phase sharing a routine 
contained in another phase, the label of 
the containing module is indicated in 
parentheses after the routine name in the 
“Subroutines Used" column. The routine 
will not then appear in the routine direct- 
ory for the phase under discussion, but 
will be found in the routine directory for 
the containing phase. 


Identification of tables 
phase flowcharts is based on 
label. 


and physical 
the phase 
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Table AA. Module AA Compiler Control Resident Control Phase 





EE cU ue EUM II IARE pe mm s e DET Tonto EE a S 1 
| |Main Processing] | 
| Statement or Operation Type | Routine | Routine Called | 
}----------------------------------------------- +--------------- }~---------------------- { 
{Initializes the compiler | ZINIT |LOADW, ABORT | 
| | | | 
|Parameters passed: General register 1 points at| | | 
|the passed parameters { | | 
|Entry to 0S/360: GETMAIN(R), TIME, LINK, SPIE | | | 
ver eS eT ere Se A ok De e pè NEP A as ween Se] 
[Deletes a list of loaded phases | RELESE |ZUERR, ABORT | 
| | | | 
|Parameters passed: PAR1 -- address of list of | | 
[phases to be deleted | | | 
[Entry to OS/360: DELETE | | | 
----------lT--l-------—------------------------ }~-~------------}-----------------------4 
|Deletes a list of loaded phases and passes | RLSCTL {Module AD if inter- | 
[control to either the next requested phase or | jphase dumping is req- | 
{the next named phase | Juired; Module AE if it | 
| | lis end of Read-In | 
|Parameters passed: PAR1 -- address of list of | |Phase; ZUERR, ABORT | 
|phases to be deleted; PAR2 -- address of name | | | 
[of phase to which control is to be given, or | | 
[zero | | | 
|Parameters returned: PAR1 -- load point of new | | | 
| phase | | | 
[Entry to 0S/360: DELETE, LOAD(EPLOC), LOAD(DE), | | | 
| LINK | | | 
~----------------+----------------------------- $--------------- Pero 1 
[Loads the required phase and returns control to|LOADX | ZUERR, ABORT | 
[the caller. The phase may be loaded again | | | 
| | | | 
|Parameters passed: PARL -- address of name of | | | 
[phase to be loaded AN | | 
|Parameters returned: PAR1 -- load point of | | | 
| phase | | | 
[Entry to OS/360: LOAD (DE) | | | 
€———————— ----------------- }---------------}-----------------------| 
|Marks phases as 'wanted' and ‘not wanted" |RECEST |ZUERR, ABORT | 
| | | | 
|Parameters passed: PARI -- address of | | | 
|list of phase names to be marked 'wanted;' | | | 
|PAR2 -- address of list of phase names to be | | | 
|marked ‘not wanted' | | | 
|Entry to 08/360: None | | | 
Feet 1 AS eten gege 1 
|Puts a record out to SYSLIN | ZULF | LFERRX | 
| | | | 
[Parameters passed: PARI -- address of output | | | 
|record | | | 
|Entry to 0S/360: PUT LOCATE (QSAM) | | | 
----------------------------------------------- ł---------------ł---------------------—-] 
[Puts a record out to SYSPUNCH | ZUSP | SPERRX | 
| | | | 
|Parameters passed: PARI -- address of output | | | 
[record | | | 
|Entry to OS/360: PUT LOCATE (QSAM) | | | 
biotite oe SERMO EP NU MAN CUN —————— EE J 


70 


Table AA. Module AA Compiler Control Resident Control Phase (cont'd) 
[omms RSPR SSS SSeS SSS SS tS = S$ cum quee emm une e Uoc A ns a ar mme 1 
| [Main Processing] | 
| Statement or Operation Type | Routine [Routine Called | 
po mama man an ma n ao ae n e e e e a e en n MM Bo E e titak tadn 1 
|Deletes currently loaded phases and passes | ZABORT, ABORT [Module AD if dump op- | 
Jcontrol to the Error Editor | |tion specified; RLSCTL | 
| | | | 
[Entry to 0S/360: LOAD(EPLOC) if dump option | | | 
| specified | | | 
a dca Xp cda maa qr rc ee I-]-------------- -----—------------------ 1 
|Picks up completion code and returns control to|ZEND | ZUPL | 
|the program that called compiler | | | 
| | | | 
| | | | 
|Entry to 0S/360: TIME, FREEMAIN, DELETE | | | 
ON ł---------------ł-----------------------{ 
|Handles all program checks | PIH | ZUERR | 
| | | | 
|Parameters passed: ARINT holds address of | | | 
{routine wanting to handle interrupt. ARMASK | | | 
|holds mask indicating which interrupts it is | | | 
|desired to handle | | | 
| | l | 
[Entry to 057360: None | | | 
LE A I C "-— ee a ME AN AA AA AI J 
Table AA1. Module AA Routine/Subroutine Directory 
[rcm T E ULT quomm mmn TOTAM eee EE n om n e ar deuda de eere ee 1 
| Routine/Subroutine | Function | 
CopM S A RN A E SS A n E A A A AI A A AN IA MES 4 


| ABORT 

| | 

| BLKERR 

| | lation. 

| | 

| CONSLD 

| [control block area (DSLOTS). 
| | 

| CONSLT 

| [trol area (TSLOTS). 

| 

| DFREE 

| Ja new block in storage. 

| | 

| LFERRX |Marks error on SYSLIN data set. 
| | 

| LOADX 

| {be loaded again. 

| | 

| LOADW 

| | 

| PIH {Handles all program checks. 
| | 

| PLERRX 

| [performed automatically. 

| | 

| RDERRX |Marks error on SYSIN data set. 
| 

| READX {Reads a block from disk. 

| | 

| RELESE {Releases all 

l | 

| REQEST |Marks phases 

| | 

| RLSCTL [Releases all 

| [named phase. 


Llene —À——————————————————————————————J————— 


|Deletes currently loaded phases, passes control to error editor. 


|Enters message "REFERENCED BLOCK NOT IN USE", then terminates compi- 
[Takes dictionary reference and points at relevant slot in dictionary 
[Takes text reference and points at relevant slot in text block con- 


{Finds dictionary block which can be written on disk to make room for 


[Loads required phase and returns control to caller. The phase may 


|Loads required phase and returns control to caller. 


{Prints record on SYSPRINT data set. Pagination (paging action) is 


loaded phases. 
as 'wanted' or ‘not wanted.' 


loaded phases and passes control to next required or 


L 
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Table AA1. Module AA Routine/Subroutine Directory (cont'd) 
ST sid. E O EE e RÈS a Die 1 
| | 


Routine/Subroutine Function | 
|SPERRX iaces ckkor cu GignuNcH Hab Gee, SC | 
| ZABORT pla currently loaded phases and passes control to error editor. 

eee Beier up the completion code for the compilation and returns control 


| 
| 
| 
| 
{to ZINT to continue the batch, or to the operating system at the ena] 
lof a single or batch compilation. | 
| 
| 
| 
| 
| 
| 


| 

| 

| EE 

| ZINIT |Initializes the compiler. 

| | 

| ZULF |Puts record out to SYSLIN data set. 

| | 

| ZUSP {Puts record on to SYSPUNCH data set. 

A ege eege GE 1 
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eTable AB. Module AB Compiler Control Initialization 


(pe een gp ee EE EE qe c pec EE EE 1 
| |Main Processing] | 
| Statement or Operation Type | Routine | Routine Called | 
}--------------------~-- ~----------------------- }--------------- }----------------------- 1 
{Issues a BLDL macro instruction on all phases  |PROPEN | None | 
jin compiler, and constructs a compacted phase | | l 
[dictionary | | | 
| | | | 
| | | | 
|Entry to OS/360: BLDL | | | 
pS EE EEN eege derer 1 
Prints initial heading and performs scan of OPTPROC None 


option list. Default options are taken where 
necessary 


Parameters passed: General register 1 points to 


a 
option list passed at invocation time 
Entry to 09/360: TIME, PUT LOCATE(QSAM) 


| | 
| | 
| | 
| | 
| | 
| | 
l | 
| | 
EE LST Dod cM HEC 
| 
| 
| 
| 
| 


{Makes the initial space allocation for text and|OPENR 
[dictionary blocks. Sets up communication 
| region 


[Opens spill file if text and dictionary blocks | 
lare 1K | 
| | 
|Entry to OS/360: OPEN | 


jObtains the guaranteed 4K of scratch storage | GETSCR 
| | 


|Loads intermediate file writer (Module AC). | NODUMP 
[Sets buffer sizes for SYSUT3 and opens the data| 

| set 

| | 
|Entry to 09/360: LOAD(EPLOC), OPEN | 


[Prints out list of options for this compilation|NDMP 


— — — ao ee —À — mn —— e ee we a M E vn më a men rn 


ZUERR (AA) 


—— —À — an ve «n — (san — — — O —— anm an m a a e ana den uA — d anm a —— A ann a — — M «me «asie mn a i M n —— 


{Enters error messages generated when SYSIN, 
| SYSPRINT opened 


— Gin òm “an —————— —— 


ZURD, ZUERR, ZUPL 
(all in AA) 


[Reads first card and stores. Uses as heading 
lif required 


RDCD 


None 


ZUERR 


z 
O 
D 


|Loads dictionary handling control routines 

| (phase IEMAN or IEMAL depending on normal dic- 
[tionary or extended dictionary being specified 
Jin the options) 


MEET ICI RIS duc DEL co GC. ee EE rU O oo 
i 
| 
| 
| 
i 
l 
i 
i 
i 
l 
i 
i 
! 
I 
i 
l 
! 
l 
l 
l 
i 

an see oan Sy ven cine cet mb, en ae aie ze. eene AAA AAA 


Ke bb bb bn 
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Table ABi. Module AB Routine/Subroutine Directory 

|Routine/Subroutine] SS Function |^ 0000000000000 i 
EE e EE EE one 70 7 0 7 s | 
oes (este scratch storage. | 
usus UM lists of options for current compilation. | 
SE haste intermediate file writer module AC. Sets buffer sizes for | 
| |SYSUT3 and opens data set. | 
OPERE Nee initial space allocation for text and dictionary blocks. deli 
| |up communications region. | 
Ee T Spill file. | 
ceo Dee initial heading and performs scan of option list. | 
Per kite diagnostic messages generated when SYSIN and SYSPRINT data | 
| |sets are opened. | 
NONE soie BLDL macro instruction and constructs phase directory. | 
|npcp [Reads first card. | 


Table AC. Module AC Compiler Control Intermediate File Control 


| |Main Processing | 


| Statement or Operation Type | Routine | Routine Called | 
ļ----------------------------------------------- ł------------ d-----------------7------ 1 
{Writes a record onto SYSUT3 | LEMAC {None | 
| | | | 
|Parameters passed: PAR1 -- address of output | | | 
¡records PARZ -- length of record | ] | 
[Entry to 0S/360: PUT LOCATE(QSAM) | | | 
O == 55 == === -----~--------------------------- $---------------}-----------------------4 
|Link to file switching routine (Module AG) | ENDED | None | 
| | | | 
[Entry to 09/360: LINK | | | 
AAA AAA ebe ieee SS ee ute dto este Se aS J 
Table AD. Module AD Compiler Control Interphase Dumping 
CS EE ee ee De NU ee foe ea ae ee ee oi bi 1 
| [Main Processing | | 
| Statement or Operation Type | Routine | Routine Used | 
~----------------------------------+-----------}------------ }~----------------------| 
[Debugging aids. This routine contains a dump- |IEMAD |ZDRFAB, ZTXTAB, ZUPL | 
Jing program which is invoked by use of the DUMP| |(all in AA), | 
Joption | | DUMP | 
AAA ÁÁ—————— e —————l t ——MÁ D deeg J 
Table AD1. Module AD Routine/Subroutine Directory 
po EE O MN DS A EE 1 
[Routine/Subroutine| Function | 
--—--------------- Po — —— += -- 1 
| DUMP [Converts contents of specified area of main storage to hexadecimal, | 


| |prints the result. 
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Table AE. Module AE Compiler Control Clean-Up Phase 


SEA a cos eos a eee inet que [erp qoom a N EDDIE emm 1 
| |Main Processing| 


| Statement or Operation Type | Routine | Routine Called | 
}--------------- ----------------------------~-—- ł--------------- ł----------------------- 4 
{Input and intermediate file control. Current |IEMAC [None | 
linput file is closed and IEMAC is deleted if | (Module AC) | | 
[present | | | 
| | | | 
{Entry to 0S/360: CLOSE(current input file), | | | 
| DELETE | | | 
DEE EAT LI T IMS quere eme c EO ae 1 
|Opens SYSLIN and SYSPUNCH data sets if required|NOTUS8 |ZUERR (AA) | 
| | | | 
[Entry to 095/360: OPEN | | | 
————————— f--------------- (——— —— 
|Expands the number of blocks in storage to four|NOTDCK | None | 
|text and four dictionary, if running with the | | | 
{44k size option | | | 
l | | | 
|Entry to OS/360: GETMAIN | | | 
AAA eee USE MD Pe ue fu cL ut I COMPRO CUL O ls J 
Table AE1. Module AE Routine/Subroutine Directory 
pee n ee ae e a A n n ee PEDI ES 1 
|RoutinesSubroutine]| Function [ 
}------------------ }----~-------------------~------------------------------------------- 1 
| NOT48 [Opens SYSLIN and SYSPUNCH data sets as required. | 
| 
| NOTDCK [Expands number of blocks in storage. | 
bas See er es Dae ean eet REF eat aes a a utente A A eA n a ao J 
Table AF. Module AF Compiler Control Sysgen Options 
o a re eem ce ee e EDE oi ig ee EE 1 
| Function | Subroutines | 
~----------------------~-------------+--------------------- $----------------------------| 
|This module contains no executable instructions. It is | None | 
[generated at SYSGEN time and passes the default options | | 
land values to the compiler | | 
Eurer eA A oe dade E cL ee Peco epee ec ruo T J 
Table AG. Module AG Compiler Control Intermediate File Switching 
poe ecc ee O EE qoc uU Ne HAM SE DCUM as MESSIS 1 
| Function | Subroutines | 
—————— — }----------------------------] 
|Switches SYSUT3 from an output file to an input file | None | 
| | | 
|Entries to 09/360: OPEN and CLOSE | | 
¡AAA APA LM MM NEUEM O UON TCU C EN ee USE EN PO ee UNES J 
Table AK. Module AK Compiler Control Closing Phase 
E DD MEUSE TTE TER zz SE JENE EM A E 1 
| Function | Subroutines | 
APA O A TS A i a EA a M RU nim €————————— ME 
[Closes files, frees scratch core and deletes unwanted | ZURC (AA) | 
| phases | | 
| | 
|If batch compiling, scans batch delimiter card for correct] | 
[syntax and updates completion code. | | 
| | | 
[Entries to 0S/360: TIME, CLOSE, FREEPOOL, DELETE, and | | 
| FREEMAIN | | 
ARS c pa rr ——— TO NER A A I ait nu J 
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e Table AL/AN. Modules AL/AN Extended Dictionary/Dictionary Phases 
CF A eT ii pri ene Pen mar pecore C ee 1 


Statement or Operation Type 


number of entries to ZUGC to be released 
Entry to OS/360: FREEMAIN if storage being 


| 
| 
t 
| 
| 
| Parameters passed: PARI -- a count of the 
| 
| 
| 
} 


| Parameters passed: PAR5 -- numeric parameter 
| (if any); PAR6 -- message number; PAR7 -- add- 
| ress of text (if any) or dictionary reference 
| (if any); PAR8 -- length of text (if any) 

| Entry to 98/360: None 

|Takes a dictionary reference and points at the 
[relevant slot in the dictionary block control 


|area (DSLOTS) 


[Takes a text reference and points at the rele- 
[vant slot in the text block control area 

| (TSLOTS) 

| 


| Parameters passed: PARI -- text reference 


|Allocates space for a text block 

| 

| Parameters passed: Relative track address of 
| the block (if block is on disk) in RDTTR. 

| 


Otherwise RDTTR is zero 
| Parameters returned: Address of block in GRO 


| 
| available. OPEN if no space left for text 
| blocks 


|Allocates space for a dictionary block 


l 
| Parameters passed: Relative track address of 
| block (if block is on disk) in RDTTR. Other- 

| wise RDTTR is zero 

| Parameters returned: Address cf block in GRO 

| Entry to 0S/360: GETMAIN(VC) if storage 

| available. Open if no space left for diction- 
| ary blocks 

{Investigates the dictionary block control used | 
| (DSLOTS), to find which block can be written on| 
|to disk to make space for a different block in | 
[storage 

| 


| Parameters passed: Relative track address of 


block required in storage in RDTTR. RDTTR=0 
if a block is being created 
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Routine 


— — a re mm a san — an — e — — os 


DFREE 


[Main Processing | Routine Called 


ZUERR, ABORT 


[DFREE, TFREE, ZUPL, 
| ABORT 


FREE, TFREE, ZUPL, 
BORT 


Po 


—— — a an an — — ven a rn — — — — — —— 


CONSLD, ZUERR, ABORT, 
WDREAD, WRTRD, WDWRIT 


y —  _ -—__ —————————M——————— 


| 
| 


— — — — m — — — —— — a — a — — oo ee — a mm — — — mean na anwe eman — 


Table AL/AN. Modules AL/AN Extended Dictionary/Dictionary Phases (cont'd) 


|Investigates the text block control area 

| (TSLOTS), to find which block can pe written 
jonto disk to make space for a different block 
Jin storage 


| block required in storage in RDTTR. RDTTR=0 
| if a block is being created 
| Parameters returned: TFREE 


ei rb — évite ——À— —— — 


| Parameters passed: RDTTR-0, BLOKAD contains 


| address of block that can ke written out 
| Parameters returned: BLCKAD contains address 


| of block in storage that is now available 
| Entry to OS/360: WRITE(BSAM), CHECK, NONE 


|Writes a block onto disk and reads a second one|WRTRD 


[into its place in storage 


track address of block to ke read. BLOKAD 
contains address of block to be written 
track address of block in Storage 
Entry to OS/360: WRITE(ESAM), CHECK, NOTE 


|Reads a block from disk into space already 
lavailable in storage 


| address of block to be read.  BLOKAD hoids 
| address of space in storage 
| Parameters returned: BLOKAD holds address of 


| Entry to OS/360: None 


t ———————— A n st a n n a (ER ee 


|Writes a block onto disk 


| address of space on disk 
| Entry to OS/360: XDAD(WI), WAIT 


t PR e n a EE 


[Reads a block from disk 


| address of block on disk 


| Parameters returned: PARI -- address of input 
| area 
| Parameters returned: PAR2 -- record length 


| Entry to OS/360: GET MOVE (QSAM) 


—— — — — mn enn —À anm ann — ann anm ann ame au» Gan m au m en ann tn MED T a e A ere E —— pm rm rm —— a M an ee A MÀ a n n — — 


| Parameters passed: PAR1 -- address of input 
| area 
| Parameters returned: PAR2 -- record length 


PEA REESE qoem ee E es 

|Main Prccessing| Routine Called 

| Routine | 

—————Á—— ee EE 

| TFREE |ICCNSLD, ZUERR, ABORT, 

| |WDREAD, WRTRD, WDWRIT 

| | 

| | 

| | 

| | 

l | 

| | 

| | 

| | 

A O ene nee 

| WOWRIT | WRITEX 

| | 

| | 

| | 

| | 

| | 

| | 

}--------~------ }---------------------- 
| READX, WRITEX, ZUERR, 

| | ABORT 

| | 

| | 

| | 

| | 

| | 

| | 

| | 

Porron ł---------------------- 

| WDREAD | READX 

| | 

| | 

| | 

| | 

| | 

| | 

| | 

| | 

d--------------- }---------------------- 

| WRITEX | 2UPL, ZEND 

| | 

| l 

| | 

| | 

}--------------- ł--------------------=~- 

| READX |ZUPL, ZEND 

| | 

| | 

| | 

| | 

| | 

| | 

| | 

ł--------------- ł---------------------- 

| ZURD | None 

| | 

| | 

| | 

| | 

| | 

rt eee ni EE 
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Table AL/AN. Modules AL/AN Extended Dictionary/Dictionary Phases (cont'd) 


poo a ere EE SURE a ae rei Ge aa Se tm dee 1 
[Main Processing | Routine Called 


Statement or Operation Type 
Puts a record out to SYSPRINT. Pagination 
(paging action) is performed automatically 


Parameters passed: PAR1 -- address of output 
buffer. PAR3 -- address of output buffer 
containing page heading (if any) 


Entry to OS/360: PUT LOCATE (QSAM) 


Finds a new text block. Optionally chains the 
new block to the current block and changes the 
Status of the current block 


reference to the current block. PAR2 -- a 
Status and chain indicator 

Parameters returned: PAR1 -- reference to new 
block; PAR2 -- absolute address of the 
beginning of block 

Entry to 09/360: None 


Finds the next text block in the chain. 
Optionally, changes the status of the current 
block 


Parameters passed: PARI -- a reference to the 
current block; PAR2 -- a status indicator 
Parameters returned: PARI -- reference of the 
next block in the chain.  PAR2 -- absolute 
address of next block in chain 


Entry to 057360: None 


Changes the status of the referenced text block 


Parameters passed: PAR1 -- a reference to the 


block. PAR2 + 3 -- required 'status' byte 
Entry to OS/360: None 


Converts a text reference to an absolute 
address and optionally, does not change status 
of the block 


Parameters passed: PARI -- reference to be 


converted and option indicator bit 
Parameters returned: PAR1 -- the absolute 


Converts an absolute address to a text 
reference 


the block containing the absolute address; 
PAR2 -- the address to be converted 
Parameters returned: PAR1 -- the required text 


Enters message 'REFERENCED BLOCK NOT IN USE' 
into dictionary and then terminates compilation 
Entry to 0S/360: None 
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pp pp Ht —Á 


| 
| 
| 
| 
+ 
| 
| 
| 


Routine 


ZUPL 


ZALTER 


ZTXTRF 


BLKERR 


| PLERRX 
| 
| 
| 
| 
| 
| 


|CONSLT, TRYMRT, ZUERR, 
|ABORT, BLKERR 


CONSLT, TRYMRT, BLKERR 


CONSLT, BLKERR 


CONSLT, BLKERR, ZUERR, 
ABORT 


ZUERR, ABCRT 


td 


== — —À — —À — — —À — — — — — ae — — 
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Table AL/AN. Modules AL/AN Extehded Dictionary/Dictionary Phases (cont'd) 


| 
| 
| 
| 
| 
| 
| 
| 
| 


[regere eS Se a a ee eua DIE: PARAS educ seed Tee rea se oc ee a Dm 

| {Main Processing | Routine Calles 

d Statement or Operation Type | Routine | 

}----------------------- ------~----------------- {--------------- }~---------------------- { 

[Supplies storage space for scratch purposes. | ZUGC | TRYMRT, ZUERR, ABORT 

{Allocation is made in 512 bytes at a time | | 

| Parameters passed: PARI -- a count of the | | 

| number of 512 byte blocks required | | 

| Parameters returned: PARI -- address of the | | 

| allocated storage | | 

| Entry to 0S/360: None | | 

frenn ran }--------------- }----------------------- 

{Converts an absolute address to a dictionary | ZDABRF |CCNSLD, ZUERR, ABORT, 

|reference | | BLKERR 

| Parameters passed: PARI -- any reference to | | 

| the block containing the absolute address; | | 

| PAR2 -- the absolute address to be converted | | 

| Parameters returned: PARI -- the required | | 

| dictionary reference | | 

| Entry to 08/360: None | | 

}----=--=-=-----=-------~----------------------- $--------------- }+----------------------- 

{Converts a dictionary reference to an absolute |ZDRFAB |CONSLD, TRYMRD, BLKERR 

[address | | 

| Parameters_passed: PARL -- the dictionary | | 

| reference | | 

| Parameters returned: PARÍ -- the absolute | | 

| address | | 

| Entry to 08/360: None | | 

——————————— D }----------------------- 

|Makes an unaligned dictionary entry and | ZNALAB [ZDRFAB, ZDAPRF, TRYMRD, 

|returns an absolute address | |ZUPL, ZUERR, ABORT, 

| | CONSLD 

| Parameters passed: PARI -- address of entry to] | 

| be made; PAR2 ~- length of entry | | 

| Parameters returned: PARI -- address of entry | | 

| in dictionary. PAR4 -- some reference to the | [ 

| block | | 

| Entry to 0S/360: None | | 

}--------=-----=---~-------------~--------------}---------------}+---------------------- 

|Makes an aligned dictionary entry and returns  |ZDICAB |ZDRFAB, ZDAERF, TRYMRD, 

jan absolute address | |ZUPL, ZUERR, ABORT, 

| | CCNSLD 

| Parameters passed: PARI] -- address of entry tol | 

| be made; PAR2 -- length of entry | | 

| Parameters returned: PAR1 -- address of entry | | 

| in dictionary. PAR4 -- some reference to the | | 

| block | | 

| Entry to 09/360: None | | 

—————— MMMM +~---------------------- 

|Makes an unaligned dictionary entry and | ZNALRF [ZDRFAB, ZDAERF, TRYMRD, 

|returns dictionary reference | |ZUPL, ZUERR, ABORT, 

| | CONSLD 

| Parameters passed: PARÍ -- address of entry tol] | 

| be made; PAR2 -- length of entry | | 

| Parameters returned: PAR1 -- reference of | | 

| entry in dictionary. PAR4 -- absolute address] | 

| of the entry | | 

| Entry to 08/360: None | | 

—— — d--------------- }~---------------------- 

|Makes an aligned dictionary entry and returns a|ZDICRF [ZDRFAB, ZDAERF, TRYMRD, 

[dictionary reference | |ZUPL, ZUERR, ABORT, 

| | | CONSLD 

| Parameters passed: PAR1 -- address of entry to| | 

| be made; PAR2 -- length of entry | | 

| Parameters returned: PARI -- reference of | | 

| entry in dictionary. PAR4 -- absolute address | | 

| of the entry i | 

| Entry to 08/360: None | | 

DOES S T N E E AEE A AAA "c 
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e Table AL1/AN1. Modules AL/AN Routine/Subroutine Directory 


—— = 
jRoutine/Subroutine 


| TFREE 
| 


| 
| TRYMRD 


| 
| TRYMRT 


| 
| WDREAD 


| 
| WDWRIT 


| 
| WRITEX 


| 
| WRTONL 


| 
| WRTRD 


ZAL'TER 
ZCHAIN 


ZDABRF 


ZDRFAB 





Me A E eg ES a a baj 1 
| Function | 
A A E A A II II A n a fa fa e a n cal Nee / 
[Finds text block which can be written on disk | 
|to make space for a new block in storage. | 
| | 
|Allocates space for a dictionary block. | 
| 

|Allocates space for a text block. | 
| | 
[Reads a klock from disk into storage. | 
| | 
[Creates space in storage by writing a block on | 
|disk. | 
| | 
[Writes a block on disk. | 
| | 
|Writes on last block on disk. | 
| | 
|Writes a block onto disk, reads a second one | 
linto its place in storage. | 
| | 
|Changes status of referenced text block. | 
| | 
| Finds next text block in chain. | 
| | 
[Converts an absolute address to a dictionary | 
[reference. | 
| | 
[Converts a dictionary reference to an absolute | 
|address. | 
| | 
{Makes an aligned dictionary entry and returns | 
(absolute address. | 
| | 
|Makes an aligned dictionary entry and returns | 
[dictionary reference. | 
| | 
|Makes unaligned dictionary entry and returns | 
[dictionary reference. | 
| | 
[Makes unaligned dictionary entry and returns | 
labsolute address. | 
| | 
|Converts text reference to an absolute address. | 
| | 
|Converts absolute address to a text reference. | 
| | 
|Inserts diagnostic message in dictionary. | 
| | 
[Reads a record from SYSIN. | 
| | 
[Supplies storage space for scratch purposes. | 
| | 
|Releases scratch storage. | 
| | 
|Puts record out to SYSPRINT data set. | 
| | 
jObtains a new text block. | 
tee a teenie ie sn a I is E, 


80 


Table AM. Module AM Compiler Control Phase Marking 


| [Main Processing| | 
| Function | Routine | Routines Used | 


t 
[Marks all non-optional phases and  |IEMAM |REGEST, RLSCTL (both in AA) | 


lall phases influenced by compiler 
|invocation-time options 
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Compile-time Processor Logical Phase Flowchart 
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Chart AV. Phase AV Overall Logic Diagram 
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Phase BG Overall Logic Diagram 
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Table AS. Phase AS Resident Phase for Compile-time Processing 


ES EE EES 1 
|Main Processing| | 

| Statement or eee go" Type | Routine | Subroutines Used | 
ooo roro ooo rar - 2-2-2 +--+ -- Leben 
|Initializes Switches for compile-  |ADRP | None | 
[time processor | | | 
——Ó———— +~-------------- ł----------------------------------- 1 
|Loads phases for compile-time | ADRP |LOADX (AA) | 
| processor | | | 
|-----~-----------------~----------- d--------------- Po 1 
{Determines whether Phase BC should |ADRP | None | 
[be reloaded | | t 
E EE ee p —————— À a a ao a A J 
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eTable AS1. Phase AS Routine/subroutine Directory 
poem eue crece EE EE mer M MUI n e MM EX 1 
| | 


Routine/Subroutine Function | 
ce Step p vr T UR NEED EU REN 1 
| ADRP |Initializes switches for compile-time processor. | 

| | 
| BCKUP2 |Backs up token pointer two places. | 
| | | 
| CHBLK [Changes currently busy IVB block status and gets a new block | 
| | | 
| CLSBUF [Handles calls to close and write out the buffer. Loads and bases | 
| {phase BJ if necessary. | 
| | | 
| COMENT [Scans the limits of a comment, transfers each character into the | 
| [output buffer. | 
| | | 
| ENDIVB {Closes an IVB chain. | 
| | | 
| FREVAL [Releases a chain of IVBs containing a no longer needed value and | 
| |returns chain to free list. | 
| | | 
| GETIVB |Removes an IVB from the free chain for use by the calling routine. | 
| | | 
| GNC [Updates TOKPTR to point to the next character in a particular input | 
| [stream. | 
| | | 
| HASH {Accepts an EBCDIC identifier as input and outputs an index. The | 
| Jindex indicates the beginning of the HASH chain with which the iden-| 
| |tifier is associated. | 
| | | 
| INCTST |Determines whether Phase BC needs to be reloaded on return from | 
| |Phase BG. | 
| | | 
| INPUT |Reads in an input record from the source data set or from included | 
| | text. | 
| | | 
| INRD |Reads physical records from the included data set; unblocks and | 
| [sends them back one logical record at a time. | 
| | | 
| NXTTXT [Gets a new text block and sets up address slots. | 
| | | 
| OUTPTC [Outputs a single character into one of the three output media: | 
| |IVB's, text blocks, or external records. | 
| | | 
| SRHDIC [Searches the dictionary for the presence of a named item. | 
| | | 
| STRING |Scars the limits of a string constant, transfers each character to | 
| | output. | 
| | | 
| TOKSCN |Examines text, character by character recognizing and returning each| 
| Jlogical unit of text (called a token). Tokens include identifiers, | 
| [constants, operators, delimiters, etc. | 
| | | 
| UPNEWL |Updates temporary linecount slot. | 
| l | 
| YAG2 |Loads processor phases for the compile-time processor. | 
et Se eee ETC Oc PS A a dee A re a kote fi toti J 
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Table AV Phase AV Macro Processing Initialization 


| |Main Processing 


| Statement or Operation Type | Routine | Subroutines Used | 
-----------------------------------ł--------------- ł-----------------------------------] 
{Initializes communication area for |INIT | None | 
[compile-time processing | | | 
~---~-----------~-----+------------}--------------- }-----------------------------------4 
|Allocates push down stack from | INIT | None | 
|Scratch storage | | | 
-------------l---------------------j--------------- ł----------------------------------- 1 
¡Allocates translation tables | INIT | None [ 
————————————————----—-—------------ R---—------------d--------------------------2--2-------À 
|Fnters SUBSTR into dictionary | INIT | None | 
Geh ł-----------------------------------{ 
ICreates dictionary entries and | INIT |None | 
values for constants pool | | | 
perpe M io rmt Su Biehl a ETE ae sone Bt alates A a a at al 
e Table AVI. Phase AV Routine/Subroutine Directory 
fo ee E E a RES IS a ame Uem de eere mem 1 
[Routine/Subroutine| Function | 
I------------------ —— ——— —— Á—— — —'— — G—Á— 1 
| INIT |Entry point to the initialization phase. This initializes the com- 


| {munication region for compile-time processing. 

















hands 

| [Scratch storage. 

ki E up tables to translate external code to EBCDIC; 
| |BCD,EBCDIC option. 

as is built-in function SUBSTR into dictionary. 
WWCHNBEG TOME dictionary entries and values for compile-time constant 
| | pool. 

WWMOVEIT Geer Subroutine package into core for use by BC. 
INCLUDE Gate Processor 

lusus (BC ager List Processor. 

fore Subroutine |GOTO Statement Processor. 

T Package) jActive/Deactivate Processor. 

| ELSE |ELSE Clause Processor. 
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Table BC. Phase BC Initial Scan an 
———Á—Á— € Ó 


| Statement or Operation Type 


[ment 


|text 


|Begins statement identification 
|process 
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d Translation 


querer ah ie So n a a SÈ TTE em eU BN gui a 1 
|Main Processing| | 
| Routine | Subroutines Used | 
$---------------}----------------------------------- { 
| PH1SCN |TOKEN, DELETE | 
}--------------- }----------------------------------- 1 
| PHLSCN | FINDPC | 
ł--------------- }----------------------------------- 1 
| PH1SCN | TOKEN, DELETE, IDSRCH, | 
[ |ADDSP (FREVAL, OUTPTC) | 
}--------------- }----------------------------------- 1 
| PH1SCN | IDSRCH | 
| | | 
}+--------------- }~---------------------------------- { 
| PH1SCN | PARSE, TOKEN, IDSRCH, ADDSP | 
| | DELETE, CHECK | 
}--------------- ł-------------------------=--------- 1 
| PH1SCN | None | 
| | | 
$--------------- ł----------------------------------- 1 
| PHLSCN | None | 
| | | 
due ee oL ee A W | FUPCR ae ea ras eee PR J 


eTable BCL, 
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entering it into the| 


| ADCONS 


| 
| ADDSP 


| 
| ADICT 


ADPROC (BF) 
ASSIGN 


CHECK 


DECLAR (BF) 


DELETE 


DO (BE) 


DONE (BE) 
FINDPC 
IDSRCH 


IF (BE) 
KYWDSR 


PARSE (BE) 


PIF4 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
l 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
[PH1SCN (BE) 
| 

| 

| 

E 

| 

| 

| 

| 

| 

| 

| 


RETURN {Processes RETURN statement for PROC. 
| | 

S |Collects labels into label list and identifier statement type on 
|first two tokens of statement. 
| 

STMT (BE) [Diagnoses statement type and builds label list. 
| 

TOKEN jReturns significant tokens to PH1SCN and writes out diagnostics for 
|tokens in error. 
| 

| UPDLIN {Generates an update linecount instruction. 

AAA e uai uS DE 


Phase.BC 


Routine/Subroutine Directory 


lObtains the dictionary reference of a constant, 
[dictionary if necessary. 


[Adds a processor-«reated item to the dictionary. 


|Adds a normal item to the end of the appropriate hash chain and 
[returns the dictionary reference. 


| 
|Processes PROCEDURE statement. 


[Processes assignment statements. 


[Checks back for undefined labels and identifiers not declared within 


{the block. 
| 


{Declare statement processor. 
| 

| Skips 
[dure. 


|DO statement processor. 


[Checks stack for possible THEN's or ELSE's after statement is com- 
(pleted. 


|Scans source text, character by character, searching for macro per- 
[cent character. 


over bad text up to the end of a statement, field or proce- 


[Obtains the dictionary reference of an identifier, entering it in 
{the dictionary if necessary. 


|IF statement processor. 


|Checks for single or multiple keywords. 


|Parses and generates interpretive macro code for compile-time 
jexpressions. 


{Provides special handling for end of included text. 


|Main controlling routine for phase. 


Note: See also BC Subroutine Package in Table AV1. 


Section 3: Charts and Routine Directories 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
J 


93 


Table BG. Phase BG Final Scan and Replacement 


[^er perm O me qe quc epe eum quer eg specie e a Ee ES ot S 1 
l |Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
wor CM UNES A OOS a OPERE DE V PIC MCI Ce =P IR A n tat EER A RETE y 
[Final scan for replacements |PH2SCN |OUTPUT, TOKSCN, SRHDIC | 
|-----------------------------------}-----~----------}----------------------------------- { 
[Recognition of end of text | PH2SCN | OUTPUT, TOKSCN, SRHDIC | 
}-----------------------------------4--------------- }----------------------------------- 1 
|Recognition of an identifier | PH2SCN |OUTPUT, TOKSCN, SRHDIC | 
}-----------------------------------}---------------}----------------------------------- { 
|Recognition of macro action | PH2SCN | OUTPUT, TOKSCN, SRHDIC | 
| ----------------------------------- }--------------- }----------------------------------- 1 
|Recognition of % character | PH2SCN | OUTPUT, TOKSCN, SRHDIC | 
}----------------------------------- }---------------}----------------------------------- 1 
|Recognition of other characters | PH2SCN |OUTPUT, TOKSCN, SRHDIC | 
}----------------------------------- ł--------------- ł------- So ee 1 
[Terminates and cleans up INCLUDE | PH2SCN |OUTPUT, TOKSCN, SRHDIC | 
[handling | | | 
ļ----------------------------------- ł--------- ------ Yo EE 1 
|Re-establishes scan at next higher |PH2SCN |OUTPUT, TOKSCN, SRHDIC | 
level text | | | 
|------------~-----------------------}---------------}-+---------------------------------- 1 
|Performs replacement on activated  |PH2SCN | OUTPUT, TOKSCN, SRHDIC | 
|identifiers | | | 
(ot Se Y PEL ee USER REA AAA od So x aho A A AS J 
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eTable BG1. 


——MÁ—— MÀ 
| Routine/Subroutine 


—— — — — —— — n —— m — — a o A — — 


[CLOUT (BJ) 


| 
| CONVRT 
DACLN 


DAEOB 
DAEOBF 


DAIDEN 


B 
D 
Q 


DAOTHR 


DAPENT 


DAPRTC 


GETDIC 


INCONT 


INTPRT 


OUTPT 


PH2SCN 


POP 


PROINV 


PUSH 


SYNCH 


TPEEK 


ZACOMP 


ZACVT (BI) |Converts stack items to required type by 'RETURNS' attribute. 
IZALGCL (BI) | Performs all logical operations for INTPRT. 

|ZAPUSH (BI) |Performs stack maintenance for INTPRT. 

qr ER T ————————— ————— ————————— eu ae 


ZAASIGN 


FUNCTN (BJ) 


(BI) 


(BI) 


PUNCH (BJ) 


(B1) 


(B1) 


ZACONCAT (BI) 


- 
| 


Phase BG Routine/subroutine Directory 


Function 


{Closes output buffer, and writes out record on SYSUT3. 


|Handies conversions between the three data types used in the 
|compile-time processor . 


|Terminates INCLUDE text handling and frees text blocks containing 
linciuded text. 


|Re-establishes scan at next higher level text. 


|Recognizes and processes end of text condition. 


|Recognizes and processes identifier in text. 


{Recognizes and processes macro action character. 


|Recognizes character and outputs it. 


|Handles replacement operation for text identifiers. 


|Recognizes % character and recalls Phase BC if appropriate. 


[Handles built-in functions. 


[Picks up a two-byte dictionary reference from scrubbed text, per- 
|forms error checking, 
[relative and absolute address. 


|INCLUDE control routine. Opens DCB, 
land initiates look-ahead read. 


| 


|Interprets the macro code generated by the Phase I scan. 


| 
Handles the output of tokens. 
p 


[Scans text blocks. 


|Pops the top temporary off the Phase II stack. 
1 


|Special entry point to interpreter for invocation of procedures 
[found in source program text. 


|Pushes next available temporary onto the Phase II stack. 


|Punches down output record, 


ISynchronizes linecount, closing buffer if necessary. 


in source code, on MACDCK option. 


[Scans for procedure reference argument list left-parenthesis. 
[Performs identifier assignments for INTPRT. 
| 


{Performs all logical comparison operations for INTRPT. 


{Performs string concatenations for INTPRT. 
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resolves indirect references, and returns both 


finds member, sets up buffer, 


PT 
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Table BG1. Phase BG Routine/subroutine Directory (cont'd) 


|Routine/Subroutine| ^ Function ^ 
IZARITH (BI) |Performs all arithmetic operations for INTPRT. = = 
|ZATRAI (BI) TN transfers from included text to including text. 

|ZATRAN (B1) een all transfer operations for INTPRT. 

[2 JSUBS (BJ) [Built-in function SUBSTR. 
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Table BM. Phase BM Diagnostic Message Determination and Printing 
pure ccc eM a IU qs p S queer e e er USES MIT ATAN 1 
|Main Processing] | 
| Statement or Operation Type | Routine | Subroutines Used | 
}--------------~-~-------------------}--------------- E { 
{Determines whether error messages |XA | None | 
lare to be printed | | 
po ro pie Less 1 
|Scans error message text skeletons |XA8 |XA50, XA70, XA90, XA110, ZUPL | 
pono prints them out | | | 
ees e ELM LIA E M DEC a A A ccena ccu uu cst 

Table BM1. Phase BM Routine/Subroutine Directory 
Rv cr rV EM ES e cubo S pe RE END TUR ee A A NS CE EON 3 
[Routine/S subroutine] Function | 
------------------ }~------------~------------------------------------------------------| 
| XA |Determines whether error messages are to be printed. | 
| | | 
| XAO [Sets severity code. | 
| 
| XA01 |Establishes which message types to suppress. | 
| | | 
| XA1 [Counts number of error chains to be processed. | 
| | | 
| XA2 {Puts out messages if there are no diagnostics. | 
| | | 
| XA4 |Prints out "COMPILER DIAGNOSTIC MESSAGES". | 
| | 
| XA7 |First scan of message chains. | 
| | | 
| XA8 [Scans error message text skeletons and prints them. | 
| l | 
|XA9 (BN) [Scans to head of next non-empty chain. | 
| | 
| XA12A [Selects and prints header for messages of given severity. | 
l | | 
[XA30 (BN) [Gets next entry in message chain. | 
| | | 
[XA32 (BN) |Builds up first part of message in buffer. | 
| | | 
[XA35 (BN) |Accesses message skeleton. | 
| | 
|XA4O (BN) |Puts out completed message. | 
| | | 
[XA50 (BN) |Moves message text to print buffer. | 
| | 
{XA70 (BN) |Converts binary statement number to character representation, and | 
| {moves it to print buffer. | 
| | | 
[XA90 (BN) {Converts binary numeric value to character representation and moves | 
| Jit to print buffer. | 
| | | 
[XA110 (BN) |Moves identifier from dictionary entry to the print area. | 
l | | 
| ZUPL [Prints a line on SYSPRINT data set. | 
AAA A EEE E A ——————————————————— J 
Table BW. Phase BW Cleanup Phase 

(Pon eee ey EE Tr D T EE ES E 1 
[Main Processing] | 
| Statement or Operation Type | Routine | Subroutines Used | 
po ro ooo +--------------- ł----------------------------------- 4 
|Resets all tables and communi- | LEMBW | None | 
[cations region cells to the value | | | 
(ESE by the compiler proper | | | 
A IA A AA A A AO 
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Chart 02.  Read-In Logical Phase Flowcnart 
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Chart CI. Phase CI Overall Lcgic Diagram 
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Chart CL. Phase CL Overall Lcgic Diagram 
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Chart CO. Phase CO Cverall Lcgic Diagram 
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Chart CS. 
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Phase CS Overall Lcgic Diagram 
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FOR: 


PROC, 
CALL, 


Phase CV Overall Logic 


Diagram 
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Table BX. Phase BX 48-Character Set Preprocessor 


presse KE ENN TEN RT a ene eee te piè ees qe ac cdas EE 1 

|Main Processing] | 
| Statement or Operation Type | Routine | Subroutines Used | 
}--------------~-~--------------------}--------------- }----------------------------------- 1 
|Translates keyword table to inter- |BAOO | None | 
{nal code and initializes | | | 
~--------------~------------------- }---------------}-----------------------------------4 
[Reads a record |BA1 [ZURD (AA) | 
}----------------------------------- +--------------- $----------------------------------- { 
|Scans text [BALA | None | 
o ł-------=-------ł-----------------------------------] 
[Handles operators and keywords | BA5 | None | 
~----------------------~----------- ł---------------ł---------------------------------—- 
|Replaces operator keywords |BA11 | None | 
~~--------------------------------- }-------~-------}-----------------------------------{ 
|Replaces comma-dot by semi-cohon | BA20 | None | 
|where applicable | | | 
~---------------------------------- +--------------- }----------------------------------- 1 
[Deals with quote marks | BA25 | None | 
}-----~--~----~-~------------------- d-e-------------- }----------------------------------- 1 
|Maintains parenthesis level count |BA30 | None | 
o }---------------}-----------------------------------4 
|Replaces period-period by colon | BA4O | None | 
po ooo }--------------- ł----------------------------------- 1 
[Processes a slash | BA50 | None | 
A eek ic Ac unl al eee dol eee ee ed 
{Reads one record ahead in case of |BA7O | None | 
[need | | | 
X——————M € f= === === Po o 
[Restores the situation when a read |BA80 | None | 
lahead has taken place | | | 
€ }----------------------------------- 1 
|Puts out converted text and origi- |BA90 | ZUBW | 
Jnal text onto backing store | | | 
E A EE dE J 
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Table CA. Module CA Read-In Common Block 1 


— — — — — — — —— —— e — — — ——— — — —— — — — — — — — — wr — — — — — mem — e mm — — — — E —À — — — — — — — —— —— —— — — — — — — — — — — — — — — — — — — — — — — e| 


[Provides subroutines common to all five |ACONST, DECINT, EXP, EXPAND, EXPLST, IDENT, | 
|passes of the read-in phase |MVCHAR, OPTOR, SCONST, SINGLE, SQUID | 
MAURO n n A T EE EE REPE a ee T AR A cM PE DR Ub ptu pèn ! 


Table CA1. Module CA Routine/Subroutine Directory 
ps A EES 1 
| | 


Routine/Subroutine Function | 
[ACONST — [checks for a valid arithmetic constant. | | 
serus {Checks decimal integer. | 
| EXP ees expressions. | 
e Les ene iterations of string constants and picture characters. | 
| EXPLST {Checks for a list of expressions separated by commas but enclosed iul 
| |parentheses. | 
n ee for a valid identifier. | 
fore re text from one address to another. | 
oo |Checks for an operator and replaces the two-byte operators by one- | 
| |byte codes. | 
Scones ae for a valid string constant. | 
Gd eer a Single expression in parentheses, : 
|souzo ` [checks for a valid subscripted and qualified identifier. | 
——————————————————L-———LBclIl--w—-—————————————e—LLELe—uw——Lllllll.-ImlclI--.l-lllcllllllcc--cd | 
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Table CC. 


[Provides subroutines common to all five 
|passes of the read-in phase 
l 


Module CC Read-In Common Block 2 


|CHAR, CHECK, KEYWD, MESAGE, NONEX, 


| NULINS, 
L 


OPTEST, PICT, PREC, SCFLOW 


(a a o e ee E ad FÈ a A eed 


Table CCL, Module CC Routine/Subroutine Directory 
penc cl opere eer LT Tm ME eere ge I ie a 1 
|[Routine/Subroutine| Function | 
}------------------ ł------------------------=--=-----------------------------------—---- 1 
| CHAR {Diagnoses the CHARACTER and BIT data attributes. | 
| | | 
| CHECK [Tests the top entry in the stack. | 
| | 
| KEYWD {Identifies keywords and hands back the replacement character to the | 
| jcaller. | 
| | | 
| MESAGE |Provides a diagnostic message. | 
| | | 
| NONEX [Checks stack for non-executable statements. | 
| | | 
| NULINS |Inserts null statement in output text. | 
| | 
| OPTEST |Tests the output string and moves text to the output. | 
| | | 
| PICT |Diagnoses a picture. It uses a TRT table set up for the purpose. | 
| | | 
| PREC [Diagnoses the precision, and the attributes and format items which | 
| [use it. | 
| | | 
| SOFLOW {Bumps stack pointer and checks for stack overflow. | 
Eege A a N O a aia: J 
Table CE. Modules CE, CK, and CR Read-In Keyword Block 
A A ÈD DA ee A EE EE 1 
| Function | Subroutines | 
ļ------------------------------------------- ł------------------------------------------- 1 
{Provides tables of keywords in internal | None | 
|code, together with replacement code. | | 
[No functional code exists in these modules. | | 
|Refer to Appendix B for details of keyword | | 
[tables. | | 
cm UM E ee E J 
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Table CI. 


[Main Processing| 


| Statement or Operation Type | 


|Controls main scan, identifies 


Phase CI Read-In First Pass 


Routine 


RSTART 


| ASSIGN, BADST1, BEGIN, DO, | 











SIGRVT (CG) 


STAT2 (CG) 
STID 
STRING (CG) 


|dictionary. 
| 
[Scans SIGNAL and REVERT statements. 


|Handles all other statements. 


Statement identifier routine. 





| 

[statements, and analyzes some in | ELSE, BUMP, END, EOP, ERROR, IF, 
[detail | JON, POPLST, PROC, READ, SIGRVT, | 
| | |STAT2, STRING, plus those | 
| | |subroutines contained in modules CA| 
| | land cc | 
Was Aes ee Se ee Le ahs E e eee eee qM EPUM EE" J 

Table CI1. Phase CI Routine/Subroutine Directory 

E SS e A A L ON PO ST 
| Routine/Subroutine| Function | 
ee E a TURA UR Mee REIR Se 4 
[ASSIGN (CG) |Diagnoses an assignment statement. | 
| | 
| BADST1 [Recovers from failure to recognize a statement type; skips to next | 
| | Semi-colon. | 
| | | 
|BEGIN (CG) [Checks the BEGIN statement and makes an entry in the first pass | 
| |stack. | 
| | | 
| BUMP lAdvances the input Data Pointer (DP), skips blanks, if any, forcing | 
| [source text to be read into storage as necessary. | 
| | 
|DO (CG) [Checks the DO statements and makes an entry in the first pass stack.| 
| | | 
|ELSE (CG) [Unstacks an IF compound statement. | 
| | | 
|END (CG) [Processes three different types of END statements; PROCEDURE-BEGIN; | 
| |DO; iterative DO. | 
| | | 
| ENTRY [Processes ENTRY statement. | 
| | | 
| EOP |Processes end-of-program marker, and returns to compiler control in | 
| |order to load next pass. | 
| | 
[ERROR (CG) |Handles false starts on possible statements. | 
| | | 
|IF (CG) |Scans the IF statement and makes entry in first pass stack. [ 
| | | 
JON (CG) |Diagnoses the ON statement and makes entry in first pass stack. | 
| | | 
| POPLST {Removes prefix options from the text and places them in the dic- | 
| | tionary. | 
| | | 
| PROC |Scans the PROCEDURE and ENTRY statement and makes an entry in the | 
[ {first pass stack. | 
| | | 
| READ |Reads source text into storage, translating it into internal code, | 
| |except for character strings; removes comments; prints source list- | 
| jing and prefix options. | 
| | | 
| RSTART [Controls the first pass scan. Enters statement labels into the | 
| | 
| | 
| | 
| | 
| | 
| | 
| | 
| | 
| | 
J 


———— e — € mm n E we —— —— ve we —— e re we we pm en wm an A ae a ne Ve mes mue ee ee A de a se ee ent mm 


Table CL. Phase CL Read-In Second Pass 


puse pom comede ee O AA qu nec o Dc poc cQ pc DTE NES 1 
| [Main Processing | | 
| Statement or Operaticn Type | Routine | Subroutines Used [ 
~--------------~------------------- ł-------=-------ł-----------------------------------{ 
[Scans for statements handled in | SCNA |BUMP, DELAY, DSPLAY, DO, FREE, | 
|this pass, analyzing them in | [GOTO, ITDO, LABEL, PROC, RETURN, | 
|detail. Skips over other statements | |TRTSC, plus those subroutines con- | 
| | [tained in modules CA and CC | 
AAA nay kk ra M A Se aga S tee oe ee [Mcr E aaNet te OPI MER DR J 
Table CL1. Phase CL Routine/Subroutine Directory 
pcr Hobe CELL Md M ICI QM aM LE ME DIE cC ee DR ET 1 
| Routine/Subroutine| Function | 
po ee ii Je LIT A A A EEN mo 4 
| BUMP (Increrents the input Data Pointer (DP), skipping over blanks, 
Jobtaining a new text block if necessary. 
| 
DELAY {Processes DELAY statements. 
| 
DSPLAY | Processes DISPLAY statements. 
| 
DO {Processes DO statements. 
| 
EOP [Processes end-of-program marker, and releases control to phase CO or 


|CS, or CV (CO and CS are optional phases). 
| 


| 

| 

| 

| 

| 

| 

| 

L 

II 

| 

| 

| FREE |Processes FREE statements. 

| | 

| GOTO {Processes GOTO statements. 

| | 

| ITDO |Processes iterative DO statements. 

| | 

| LABEL |Diagnoses LABEL attributes. 

| | 

| OPTION |Handles OPTIONS attribute on PROCEDURE or ENTRY statements. 
[ | 

| PROC (CM) {Analyzes PROCEDURE attributes and options, and completes the diag- 
| |nosis of PROCEDURE and ENTRY statements. 

| | 

| RETURN |Processes RETURN statements. 

| | 

SCNA Main controlling routine of this pass. 

| | S 

| TRTSC [Skips over all other statements. 

Lara aa e retni DP RIPE Sas es eM "-—u-———————————— ————— EE 
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Table CO. 


Phase CO Read-In Third Pass 


NIRE II D cR L MM ECL M UICE NI CM ee ae hota EE CN UE a ve Oe cU ee gee OC E CIC MG ILL CLE 1 


| Statement or Operation Type | 


|Scans for DECLARE, 
|ALLOCATE statements. 
[Syntax of attributes by calling 
lappropriate subroutines 


Me as ee ae 


Table col. 


T 
|Routine/Subroutine| 


q-.----------—--------2--2-2---2---------2-2-2-2-2-2---2-2-2-2-2-2-2-2-2-22-----2-2---- 


| ATTLST 


| 
| BDCL 


| 
| BUMP 


| 
[CALLOP (CP) 


| 
| DECL 


| 
| DEFIND 


| 
| DIMS 


| 
| ENTRY 


| 
|ENVMNT (CP) 


IVLIST (CP) 


PSQUID (CP) 


REFER (CP) 
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[Main Processing | 
Routine | Subroutines Used 
CALL, and 


+ 
| |ATTLST, BUMP, CALLOP, DECL, 
Analyzes | 
| 
| 
| 
L 


|DIMS, ENTRY, ENVMNT, EOF, 


ee CA and CC 


Phase CO Routine/Subroutine Directory 


Function 


[Processes an attribute list. (Recursive) 
| 
|Processes DECLARE or ALLOCATE statement. 


[Advances Data Pointer (DP), 


| 
{Checks CALL statements and options. 


| 
|Processes the DECLARE and ALLOCATE statements. 


| 
{Checks the DEFINED attribute. 


[Examines the dimension specifications. 


| 
{Checks the ENTRY attribute. 
| 


|Removes environment information from the text and inserts it into 


[the dictionary. 


[Processes the end-of-program marker, and releases control. 


| 
|Processes the GENERIC attribute. 


| 
|Processes the INITIAL attribute. 


|Analyzes LABEL attribute. 


| 
|Processes the LIKE attribute. 


[Checks for a qualified subscripted identifier in parenthesis. 


| 
[Checks the REFER attribute. 


| 
[Scans for DECLARE, CALL, or ALLOCATE statements, moves others 


[output string unaltered. 


|Moves text to semicolon without alteration. 


| 
Irrocopees the USES and SETS attributes. 


DEFIND, 


| 
|GENRIC, LABEL, LIKE, USES, IVLIST, | 
| 
| 


obtaining new input block if necessary. 


jand those subroutines contained in 


------ 1 


to the 


LLL —— ——— A M a — a a— a — M — ——— KR — P — AR anven M — — i O — MGR aue a A ame O ES me MED m ee «RES dame ee Meum ee vg 


Table CS. Phase CS 


Read-In Fourth Pass 


ponere Ee eame eU quo uet quemque a repite tmu piii ee erm 1 
| |Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
--------=----------------—--------- ł---------------ł}-----------------------------------] 
¡Controls main scan and identifies  |SCNA |EOP, FORMAT, GET, LIST, OPEN, | 
|I/O statements for further analysis] |REAL, TRTSC, plus those subroutines| 
| | [contained in modules CA and CC | 
kon L EE O E SONO NC Ee Li TEA AAA cae A ee J 
Table CS1. Phase CS routine/Subroutine Directory 
Po eee Tm EN ri ge ee pe O eS eec 1 
|Routine/Subroutine| Function | 
iE: A E 1 
| EOP | Processes end-of-program marker and releases control. 


| 

| FORMAT (CT) 
| 

|GET (CT) 

| 

| LIST 


| 
[OPEN (CT) 


PE ter ct E ——————»———————Á—À ———X——————— HE RR 


[Processes the FORMAT statement and format lists. 


|Processes GET and PUT statements. 


|Processes data lists. 


| 
|Diagnoses OPEN and CLOSE statements. 


| 

[Checks the syntax of RECORD I/O statements READ, WRITE, REWRITE, and 
|DELETE. This routine also checks for permissible combinations of 
|these statements. 

| 


[Main scan of this pass. 


| 


[Skips over all statements other than I/O, moving them to the output 
| text. 


L IL men — s mme aem dee a a — ee — — — — — a — 
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Table CV. 


l Statement or Operation Type | 


[Identifies statements for which it |SCNA 
|must build chains 


Table CV1. 


€—————— 
|Routine/Subroutine 


|CALLIN (CW) 


| 
| CHAIN 


| 
| CHECKON 


DECL3 
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Phase CV Read-In Fifth Pass 


|Main Processing| 
Routine | 


|CALLIN, CHAIN, DECL3, DC3, END3, 

| | ENTRY3, EOP, POA1, PROC3, TRTSC, 

| land those subroutines contained in 
| [modules CA and CC. 


Phase CV Routine/Subroutine Directory 
T 
| 


—— —Ó — —À —À — — e —Ó —À — —À —À —À — — — — — — — — — — — —Á— — — — — — — oun — — —— 9 O om m n amen AM ee — 9 n m en M an ee — a a = +: 


Function 


|Makes up the CALL chain. 
| 


|Forms chains. 


[Checks the fifth pass stack for ON entry, in order to insert 
| PROC-END statements round the ON unit. 


| 
[Chains the DECLARE statement to the appropriate PROC or BEGIN state- 


|ment. 


| 
|Makes a stack entry for DO block. 


| 
[Checks the fifth pass stack. 


| 
{Makes an entry in the ENTRY chain. 


[Processes end-of-program marker, and releases control. 


[Creates pseudo-assignment statements for initial labels. 


{Analyzes prefix options in greater detail. 


|Processes check lists. 


| 
|Makes an entry in the PROCEDURE-BEGIN chain. 


|Main controlling routine of the pass. 


|Extracts statement number for label entry. 


[Skips over statements not required for analysis in this phase. 
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Dictionary Logical Phase Flowchart 


Chart 03. 
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Chart EI. Phase EL Overall Logic Diagram 
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Chart FI. Phase FI Overall Logic Diagram 
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Chart FO. Phase FO Overall Logic Diagram 
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Chart F2. Phase FQ Overall Logic Diagram 
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Phase FT Overall Logic Diagram 


e 
*FT * 
* A2* 
e * 
* 
. 
e 
. 
ACL X 
6X A 2 ka AO ER 
* * 
D SCANS D 
* SECOND FILE a 
* * 
» La 
AICA 


sese E Ve EE 


e ^ 
e AC2 et. AF3 3 
M OW asters pa 
e e 
Dos MCN e Md xt DICTIONARY. LL. 
. wi LEERE E E ..no 
R ke Se AT Bote Riky AT TUE € 
D MARKE H STATEMENT 
e ve Nn X TTET ttt tered 
. 
. . 
. . 
. . 
e . 
D x 
e ete 
e c2 Se 
D D. Ze 
D Miir feel END or te 
sc... Li e 
Se TEXT Cha 
(8 A 
Se a* 
* YES 
e... o, 
* . 
* 02 aXe 
* LI 
an o, 
B1A x 
M64 84026824 426608 
* 
* H 
*DICTIONARY SCAN* 
* * 
* * 
IA 
. 
e 
. 
. 
. 
X 
ez" s ii 
"antis 
.* "ci AT YES E SIN many * 
Ze wl E MANY Leen KEEN abit 0 ATÈ" * 
¿e ROPRIA * 
CHAIN * 
“a. san HN HUTT 
e NO 3 
e 4 
. . 
e . 
. e 
e x 
. ro ate 
. f3 Wë EE 
. . . 
. 0 YEST FOR "pr, YES Ze H ee UNE 
D e TAHER [ON afeeeeeeae XY RE I 4T F "Ur 
D en[IMENS IONS, * ba Wala fy Rise 
x Te oe E GER PA ED 
. *^ ND e 
. . e 
. . a 
$ . D 
LA eXeeoe  s8r5nr#SGEenonsanoneseer 
x > 
e fe X 
e 
* SK NEXT * 
epe TTE D Eplou say : 
LA 
K $96€569660 6099485 
ta Yes e 
. a 
. * 
X H 
setta LIT 
ory * * * 
+ Siye e n2 * 
ae * * 
sone 


Chart FV. Phase FV Overall Logic Diagram 


REY k 
* Blk 
(Ki 
* 
. 
e 
e. 
vo X 
AA] AAA 
* * 
* REVER * 
* SECOND Hee * 
ke POINTER pi 
a OR TTT 
e 
. 
e 
. 
. 
Eve H 
pem Lëinerggoeg 
ATCH # 
» MOUTE T ` 
* OF TEXT e 
WO doloe oc teielo de 
. 
. 
. 
* 
e 
s 
FVLO E. 
ERD | ROR OIE 
D 
k IOENTIFY 
oso A TEXT ITEM A AAA 
. . 
* e 
> Xue oe ok pi M : 
. * . e e 
. . . e . 
o e . e . 
. e . e e 
. e. La eXsensessensc . 
S k DEFTST e DEFM M ki pi 
. LU . e . e LJ 
S EU "e, A7 Te ZE apäebaeesen? : . 
. .* Ze * o . 
e Bi ze YES I#BYNAMICALLY#, YES M ua * s. A 
e te DICT. REF efoseseseskt, DEF INEO ic o RENE 5 NÈF * . LJ 
. te ef *, D k PUT * D e 
. Se * Se e 8 * * e D 
Mi He at Ma of Rocio tt kok s x 
a * NO * e . 
$ e e * 
H M e e 
o . Lë $ 
. . o . 
> x e E 
e ete. F 
M EU "e VE Ban eatzaggéessgen pi : 
D e 8 Ze t LLo? AN * e . 
. .* * YES Mt TE uH e e 
. Me ALLOCATE SÉ MER ES NG Fa ATEN Kaooasecosoeoosensoo . a 
. Me .* ATEMENT FOR * . e e 
D Ze EACH ITEM . . e 
: *. ot” Lean UU RANN Ak ; : : 
. * NO . . . . 
e . . . a e 
e . . . e . 
. . e . e . 
9 e . LJ NO e . 
. e . s LU 
a : DA TCPY X ete pe : 
: : er EC oo “a : = 
Pi . ba mo NP FILE * o* D e 
D . *"STATEMENTS FOR * o* eu "e, YES, a 
. D * EACH HET ta #roseooneX#e, OF LIST e Bea, e e 
D e * OUTPUT $ at . 
D D »* Li "e, » 
pe * AAA *. e : 
D . * e 
. . e 
Li . . 
. e $ 
e L e 
e x e. 
e e Ba Fvl9 DATC PY e 
ba HI” "e Pi ri: RARA ZRC : 
. e * * ENTRY" AIN * * IF TABE * . 
a A *. YES *0F “EN Ry Ypes * * RETURN * ” 
e We PROC ePovccceenX*# ENTR Kroano+e: XE ARA T STRING * e 
D Ze ex * FORA ENS * * AD ND FILE * . 
M we a * * «STATEMENT TO OP e 
: He ot OR OR I Titi ete Ty PRA : 
D * NO a . 
Li . . e 
B a n . 
. . . . 
* . D * 
D X a e YES 
D a fe Fv2> FV34 x NATCOY ZU 
: AU "ee, que io POT TRE TEE Sees RE rait Q^ 
P] A e * * * 
e .* Se YES * PICK ue * * SCAN AUTO * KRFOR o IEN EN tn Se 
a Se BEGIN Proa Ve ENTRY TYPE )  Mosonss XA CHAIN FOR Za enee - XRF 4 "n LE E) ELM OF CHAIN ak 
3 “e at * ^ * BLOCK * *, et 
ki Ke By * * * D * e, 
mi He ot ËTT OUR RI ROROR Glo TI RR e eee Zeggtegggégrgeee *. 
S * NO x a" NO 
. . e e 
o . €6r60600660^8€062605225052"»5000000000*^0000606000600809099090€^502n^009€* 
. . 
. X 
* 
. ete 
. K1 Ze 
LJ .* x, 
a NJ ot *. VES 
nora ta FOP ePeocececeoo 
*, .* 
ka m ET 
Se ot SEN * 
* A2* 
* 
k 


Section 3: Charts and Routine Directories 127 


Chart FX. Phase FX Overall Logic Diagram 
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Table ED. Phase ED, Initialization 
pouce emere per AA cnc EE Dac Ne oo oe e Po LETTRE RI re 1 
| {Main Processing | | 
| Statement or Operation Type | Routine | Subroutines Used | 
ļ-----------------------------------ł--------------- ł----------------------------------- 1 
[Sets up routines in scratch core | SETUP | None | 
[ror phase EL | | | 
SE EE D vedete EI iL LC id ca c 
eTable ED1. Phase ED Routine/Subroutine Directory 
NEVER inim EU ee qe ue Ded I E C E Euge Im Tren] 
[Routine/Subroutine| Function | 
}-----------~------- — rr ane 1 
| EVENT | | 
| TASK | | 
| CELL |Routines for processing declared attributes. These set up | 
| BASED linformation in the attribute collection area of scratch core, | 
| AREA |for reference by CDICEN, etc., in phase EL. | 
| POINTER | | 
| OFFSET | | 
AAA A A AN DA A OR A p J 
Table EG. Phase EG Dictionary Initialization 
A pe Lacu c x RENI MM EE 1 
| |Main, Processing | | 
| Statement or Operation Type | Routine | Subroutines Used | 
E CER a MUSS CO UU ORE MEINEM ae E 4 
{Hashes labels |CAA1 [CHASH, CBCDL2 | 
------------------------=----------ł------------—--- }--~--~-----------------------------{ 
[PROCU BEGIN chain |CA7 | None | 
~----~--~-------~-~-----~----------4+-------------- ł----------------------------------- 
| BEGIN [CASA | None | 
----------------=------------------- }---------------}-----------------------------------] 
| PROCEDURE | CAPROC |CANATP, CFORP | 
A A AAA E E E E d En EE EE 
| ENTRY |CA10 [CANATP, CFORP | 
A BE E cec E A E Lis E { 
|Formal parameter | CFORP |CHASH, CBCDL2 | 
molccuscasecc cuc ucc LI M M LL C e eau ea E ède 4 
[Attribute list | CANATP [CAPRE1, CATCHA, CATBIT, CATPIC | 
pL-.------------------------2---------- ——————— l————————— —— ———— á—— q 
[Creates entry type 2 entries for |CTYPBL | ENT2F, CDEFAT | 
PAR DETS | | | 
Keeser mE AA Men e ii e eege J 
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eTable EGi. 


—  P———Ü 
|Routine/Subroutine 


E 
| 


Phase EG Routine/Subroutine Directory 
MUNI end ER. 1 


Function 


4 
[Scans label table and hashes labels. 


|CAA1 

| CANATP EE attribute list. 

(SABOR ee PROCEDURE Statements. 

V ups recia precision data. 

cere ege BIT attribute. 

Gë las CHARACTER attribute. 

Ge ee PICTURE attribute. 

lone CR the PROCEDURE-BEGIN chain for the relevant statements. 
aor ee BEGIN statements. 

DE ee ENTRY statements. 

m PER the hash chain looking for entries with the same BCD as 
| {that just found. 

se see data byte for entry type 2 entries by default rules. 
lékòke TEST formal parameter lists. 

| casn desine an address in the hash table for an identifier. 
KSE ee entry type 2 entries for labels. 

oe lete or copies second file statements. 

one geste ENTRY chain. 

eee (EF) [Checks containing block options, for inheritance. 

mem (EF) Ve procedure options. 

OT (EF) Peers post processing, makes STATIC DSA decisions. 


JATTRBT (EF) |Processes POINTER, OFFSET, and AREA attributes. 
RM TRE CES, EE 
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eTable EI. Phase EI Dictionary Declare Pass One 


puse rep CI jM ere eee ee DEDI CD C M C c ECC C GE 1 
| [Main Processing | | 
| Statement or Operation | Routine | Subroutines Used | 
Fo eee $---------------}-----------------------------------4 
{Scans DECLARE statement |CCGSO | None | 
GE Lech) 
|Scans text |CCGS2 | None | 
ļ------------------------:----------- ł--------------- Pe 1 
|Processes structure level | CCGSCM | None | 
——— E Yo pr ae 
|Factored attribute, left |CCFLP |CFPMCR | 
|parenthesis | | | 
—— —— Pr—— H—— +--------------- }---~------------------------------- 1 
|Factored attribute, right | CCFRP | None | 
{parenthesis | | | 
~----~----------------------------- $---------------}----------------------------------- 1 
[Data following DEFINED attribute | CCDEF | NEWBLK, CTXTRM | 
So asi ł--------------- Po 1 
| POSITION | POSIT | None | 
roro or }---------------}-----------------------------------4 
| CHARACTER, BIT | CHABIT | CTXTRM | 
O }---------------}-----------------------------------4 
| PICTURE |CATPIC | None | 
| ---------------~-------------------}--------------- Le 
|USES, SETS | SETS | None | 
-------------2------------2-2-222-2-2--22-j--------------- Sm e En 4 
|LIKE |LIKE | None | 
~a------+-------------------------- ł---------------ł---------------------------------=-] 
| KEY | KEYED | None | 
wanna reno nnn nnn nnn nn =o == fone nnn }------------------~-------~--------{ 
| Dimension | CDDIMS [CTXIRM, AST, TOMENE, ERRORB | 
}~----------------------------------}--------------- Ken 1 
| Precision | CDPREC | ERRNEG, SCLBIG | 
mo a pie 4---~-------------------------------{ 
| INITIAL | EJINIT |CECON, EHINIT | 
~~--------------------------------- }---------------}-----~-----------------------------{ 
{INITIAL CALL | INCALL | CTXTRM | 
----------~------------------------ $---------------}----------------- += ------------- == 
| OFFSET | OFFSET | CTXTRM | 
ron ooo on roro poor e 
| BASED | BASED | PTVEXP | 
peo ooo ł--------------- }----------------------------------- 1 
| AREA | AREA | CTXTRM | 
LASE E e E E Li IS P — — — — A À—— e J 
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eTable Ell. 


| 
|BASED (EH) 


|CDDIMS (EJ) 
[CDPREC (EJ) 


[CECON (EH) 


ERRNEG [Deals with the case of a negative precision specification. 
| 

ERRORB |Deals with the case of lower dimension bound declared greater then 
|the upper bound. 

Ede oca ee La a E A NN II ie A O E 


132 


Phase El Routine/Subroutine Directory 


O AA E ene ete ee pe a E eme pM EE EE 1 
| Routine/Subroutine | 


4+--------------------~--- ---- ---- - - - + - E A + 


Function 


|Processes AREA atrributes. 


|Deals with the case of* dimension bounds mixed with non -* bounds. 
| 

|Entry point in OFFSET routine, at which second file statement is 

| made. 


[Processes. PICTURE attributes. 


| 
|Processes data following DEFINED attribute. 


| 


{Processes factored attributes (left parenthesis). 


{Processes factored attributes (right parenthesis). 


|} Processes structure level. 


| 


{Attribute routine selector. 


| 
[Scans DECLARE chain. 


[Scans text. 


{Scans source text. 

| 

[Processes dimension attributes. 

|Processes precision attributes. 

| 

[Makes a dictionary entry for a constant unless one has already been 
[made. Returns the dictionary reference of the constant entry. 


{Obtains more storage for the factored attribute table. 
| 

|Processes CHARACTER and PIT attributes. 

| 

|Detects end of DECLARE chain. 

| 


[Tests for space in current text block and obtains new block if nec- 
|essary. 

| 

|Processes the INITIAL attribute except for the initialization of 
[label variables and INITIAL CALL. 


| 
|Processes INITIAL attribute and LABEL with a label-constant list. 


| 
1 


AA — A — PP —À —— — — — aw —— — — Sè= —— antizi n — M MÀ M "M a NE «vwa cm A San Manm ant anme —— M A Ma —— akt ane M EE vn M a€— wan am a ee e 


Table Ell. 


po a 
| Routine/Subroutine 


[------------------ 


| GENTRY 
| 
| INCALL 


IVROOM 


IVPUTL 


(EJ) 


(EH) 


(EH) 


(EH) 


(EH) 


(EH) 


(EH) 


Phase EI Routine/Subroutine Directory (cont'd) 
ER E E ÓN mem mv Uie aa ME el aa rege 1 
| 


Function 


[Keeps a count of parentheses in GENERIC and ENTRY processing. 


|Processes INITIAL'CALL attributes. 

| 

[Checks if there is space in scratch storage for another entry. If 
(not, it makes a dictionary entry and chains it to the previous one 
Jor to the C8 in text as required. 

| 

|Places a dictionary reference in the ‘initial list' for a label 
|constant. If the constant is not known, a dummy reference is 
|inserted. 


| 

[Places a dictionary reference in the 'initial list' for a constant. 
| 

[Places the dictionary reference of zero in the ‘initial list' for a 
[negative or imaginary replication factor. 

| 


[Processes KEY attributes. 


|Processes LIKE attributes. 


[Obtains new text block. 


| Processes OFFSET attributes. 


| 
|Processes POSITION attributes. 


|Entry point in OFFSET routine, at which secondfile statement is 
[made. 

| 

|Deals with the case when the scale factor in a precision specifi- 
[cation for fixed-point data is declared too large. 

| 

{Creates a dictionary entry for a constant provided the appropriate 
lentry has not been already made. 


|Processes USES and SETS attributes. 


[Deals with the case when the number of dimensions declared is great- 


ler than 32. 
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Table EL. Phase EL Dictionary Declare Pass Two 


[UU THU ore e eum e a T E A ee uem {Ha SSS See EE an TEE 
{Main Processing | 

| Statement or Operation Type | Routine | Subroutines Used 

{Scans chain of DECLARE statements |CGENSC | CDCLSC 

Eege E E SE ie 

[Scans each item of DECLARE {CDCLSC |ATLSCN, BCDPR, CDFLT, CDICEN, 

[Statement | |CDIMAT, DCIDPR, INTLZE, POSTPR, 

| | | SELMSK, STRPR 

eee cia ko a [rabo anka ki P rl. ny se A 1 

{Initializes each identifier | INTLZE | DCIDPR 

| declared | | 

}----------------------------------- }--------------- }----------------------------------- 

|Processes factor brackets and level|DCIDPR | TEMSCN, BCDPR 

[numbers | | 

[Scans for next level number | TEMSCN | CDATPR 

|Processes BCD of identifier | BCDPR |BCDISB, CHASH, SELMSK 

------------+----------------------}--------------- Po 

|Hashes BCD of identifier | CHASH | None 

[Scans list of attributes following |ATLSCN [CDATPR 

[identifier | | 

{Applies factored attributes | CDFATT |CDATPR 

a ge faa ca lS EE ——Á—————— — pat —— 

lApplies implicit attribute | LMPATT | None 

|Attributes controlling routine CDATPR |CDAT40, CDAT41, CDAT42, CDAT43, 


| 
| | |CDAT44, CDAT45, CDAT48, CDATU49, 
| | [CDATYA, CDAT4B, CDAT4C, CDATUD, 
| | |CDAT4F, CDAT54, CDAT55, CDAT56, 
| | [CDAT57, CDAT58, CDAT59, CDAT60, 
i | [CDAT61, CDAT62, CDAT63, CDAT64, 
| | 


|CDAT69, CDAT6A, CDATB4, CDATB8 
A ee eee ES EE 
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e Table ELI. 


Routine/Subroutine 


ar —— — — —— pn — ox — an — e —  — — — rb em e — — mmm o -— — mm im X vm a — M A —— a— e mn — ce a Ka E mp «A ee ne — ee amè men ae am dA Ge anti OW GER c us ab Qum ve dum um CHE Mm M mum mum wem cum mum mum e m m ee ee e am onn 


A 
| 


| ATLSCN 
| 


BCDISB 
BCDPR 
CDATPR 


CDAT40 


CDAT41 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| CDAT4 2 
| 
| CDAT43 
| 
|CDAT44 
| 
| CDAT45 
| 
| CDAT46 
| 
| CDAT48 
| 
|CDAT49 
| 
| CDAT4A 
| CDAT4B 
| 
| CDAT4C 
| 
| CDAT4D 
| 
| CDAT4F 
| 
| CDAT56 
| 
| CDAT57 
| 
| CDAT58 
| 
|CDAT59 
| 
|CDAT5A 
| 
| CDAT60 
| 
| CDAT61 
| 
| CDAT62 
| 
| CDAT63 
| 
|CDAT64 


| 
| CDAT69 


(EK) 


(EK) 
(EK) 
(EK) 
(EK) 
(EK) 
(EK) 
(EK) 
(EK) 
(EK) 
(EK) 
(EK) 
(EK) 
(EK) 
(EK) 
(EK) 
(EK) 
(EK) 
(EK) 
(EK) 
(EK) 
(EK) 
(EK) 
(EK) 


(EK) 


y are eee eae Sores Sree SA A ccce 1 
| 


Phase EL Routine/Subroutine Directory 


Function 


[Scans the list of attributes following the identifier. 


Checks for multiple declarations, 


Processes 
Attribute 


Processes 
Processes 
Processes 
Processes 
Processes 
Processes 
Processes 
Processes 
Processes 
Processes 


Processes 


Processes 
Processes 
Processes 
Processes 
Processes 
Processes 
Processes 
Processes 
Processes 
Processes 


Processes 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| Processes 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
L 


BCD of identifier. 
controlling routine. 


DECIMAL attribute. 
BINARY attribute. 
FLOAT attribute. 
FIXED attribute. 

REAL attribute. 
COMPLEX attribute. 
precision attributes. 
VARYING attribute. 
PICTURE attripute. 
BIT attribute. 


CHARACTER attribute. 


LABEL attribute. 


USES attribute. 

SETS attribute. 
ENTRY attribute. 
GENERIC attribute. 
BUILT-IN attribute. 
EXTERNAL attribute. 
INTERNAL attribute. 
AUTOMATIC attribute. 
STATIC attribute. 
CONTROLLED attribute. 
INITIAL attribute. 


LIKE attribute. 


Section 3: 


etc. 


FIXED DIMENSIONS attribute. 


ADJUSTABLE DIMENSIONS attribute. 


Charts and 


Routine Directories 


ao — — ee atab e se —— T anv ee a ee a — ee A 
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Table EL1. 


Routine/Subroutine 


Ga ase AER 
| 


|CDAT6B (EK) 
| cpi (EK) 
|CDAT6D (EK) 
peers (EK) 
TE (EK) 
Ee 


| 
|CDFATT (EM) 


[CDFLT (EM) 


| 
[CDICEN (EM) 


| 
| CGENSC (EM) 


| 
{CHASH (EM) 


| 
[DCID1 


|ECHSKP (EK) 


| IMPATT (EM) 


| SCANU (EM) 
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Phase EL Routine/Subroutine Directory (cont'd) 
i a e kl A Deni Ner: 1 
| 


Function 


don nee i 


| Processes DEFINED ATTRIBUTE. 


| 
[Processes ALIGNED attributes. 


| 
|Processes PACKED attribute. 


| 
|Processes PACKED(NONSTRING) attribute. 


[Processes POS attribute. 


| 
|Scans each item of DECLARE statement. 


| 
|Applies factored attributes. 


{Applies default attributes. 


{Constructs dictionary entry. 


|Performs phase initialization and scans chain of DECLARE statements. 


| 
|Hashes BCD of identifier. 


|Main scan routine. 


|Processes factor brackets and level numbers. 


|Initializes and passes control to Module EM. 
| 

|Applies implicit attributes. 

| 


|Performs initialization for each identifier declared. 


| POSt-processor. 


| 
{Scans chain of DECLARE statements. 


[Selects correct test mask to be initialized. 


{Processes inheriting of dimensions in structures. 


[Scans ahead for next level number. 


Table EP. Phase EP Dictionary Entry III and Call 


T 
| [Main Processing | 


| Statement or Operation Type | Routine | Subroutines Used | 
~-----+---------------------------- —— a! 
[Scans for PROCEDURE entries type 1 |ENTRY3 | None | 

----------------------------------- "m 
|Follows chain of ENTRY statement | EPL4YO | None | 
[entry type 1 entries from a PROCE- | | | 
[DURE entry type 1 | | | 
|-------------------~----~-~-~--------}--------------- PR 1 
|Examines all labels belonging to an|LBPRCC | None | 
[entry type 1, constructing an entry] | | 
[type 3, if necessary | | | 
puce ipud A a ci OE EN Roc Ad pcr E mE E EMO ete pee sete ames 1 
|Foilows CALL chain in text making  |EPL290 | None | 
[dictionary entries for entry points| | | 
—  — — — Qd ł----------------------------------- 1 
|Examines the first character of an |CDIMAT | None | 
[identifier and sets a flag indicat-| | | 
ling the range in which it lies | | | 

——————— ———— A dn }------------+----------------------4 
{Applies default rules |CDFLT | None | 

------------------------------------ł--------------- ł----------------------------------- 
{Given an identifier calculates its |CHASH | None | 
loffset in the hash table | | | 
|-----------------------------------f--------------- ł----------------------------------- 1 
[Constructs a dictionary entry | CDICEN | None | 

esito eI abu n n i a EE A ere eee ee eee eer! 
jSets address slot to zero or the | FNDEND | None | 
[end of the dictionary | | | 
|-----------------------------------}--------------- ~---------------------------------- 1 
{Constructs list of numbers of known|BLDST2 | None | 
| blocks | | | 

----------------—------------------ł—-------------- }----------------------------------- 1 
[Built in function name | SCANBF | None | 
Cage Bie eee CE ee E i Saenger ee poe ce ccn Berol e t cc E ee e J 
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Table EP1. Phase EP Routine/Subroutine Directory 

[Routine/Subroutine| ^00 Function ss 
|BLDST2 | IP eee ee t PE Ame | 
| CDICEN ENS dictionary entry. 

| CDIMAT {Sets flag for default routine. 

ee (kanse default rules. 

I. [Calculates offset in hash table for given BCD. 

— seins ENTRY chain for PROCEDURE statements. 

m ieee entry in entry type 1 chain. 

eene EE ENTRY chain for ENTRY statements type 1. 

EE eee point from LBPROC routine. 

EDO eebe new entry label. 

sas re CALL chain. 

bé ITE built-in function table for BCD of identifier. 
fore ce out BCD in text. 

tog GE the CALL chain. 

eene abe address slot for label: 

EOS psa labels of PROCEDURE or ENTRY statements. 

| PHSINT Ml queues of phase. 

VERS aen later modules as 'wanted' or 'not wanted'. 
see eee for built-in a: 
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Table EW. 


Phase EW Dictionary LIKE 


| Statement or Operation Type | Routine | Subroutines Used | 
[scans LIKE chain ^ |EWBEGN —— [EWCOPY, EWEIDM, EWINCH, EWONDM | 
[Updates hash chain for new entry  |EWHSCN ` ` Dp TA A 
[calculates start of structure data |EWART |o xg EMI d | 
|from start of variable information | | | 
|Changes error entry to base element |EWCHEN = (none l 
EE EE JWA OO E | 
|second file statement | | | 
c AAA p — — ene oca ii ot J 
Table EW1. Phase EW Routine/Subroutine Directory 

|Routine/Subroutine| ^00 Function 1 
|CESCN ^ [Scans dictionary to find entry corresponding to BCD in text. ` | 
| EWBEGN EE LIKE chain. | 
| EWCHEN ass error entry to base. element. | 
Keess oe dictionary entry into scratch storage. | 
| EWELDM otis entry into scratch storage with dimension data removed. | 
Vi lité EE whether the likened structure is dimensioned. | 
lo |Handles transfer of control to next phase. | 
E e erroneously "likened" major structure. | 
unies (EX) Updates hash chain for new entry. | 
ee EE entry copy and places it in dictionary. | 
ee |Tests whether original structure is dimensioned. | 
ee E new dictionary block and terminates current one in use. | 
eee ages entry into scratch storage, inserting dimension information. | 
| abbas osos dimension information in original structure. | 
unas [Tests validity of likened structure. | 
nen EE Second file statement and associated dictionary reference. 
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eTable EY. Phase EY Dictionary ALLOCATE 


1 
[Main Processing] 
| Statement or Operation Type | Routine 


{Scans text for explicitly pointer- |IEMEX 
[qualified based variables | 


{Copies dictionary entries for | 
|explicitly qualified based varia- | 
| 


| bles 


[Second file pointers. Scans ALLO- |IEMEY 


|CATE statements 


—————— — — — — — ann — — — — — 


[Completes copied dictionary entry  |ATPROC with 


|for an allocated iter 


eTable EY1I. Phase EY Routine/Subroutine Directory 


——— — ooo 


|second entry 
[point ATPROD 


——— ——————— — — — — — — — — — ooo ep — 


{ATPROC/ATPROD (EZ)|Complete copied dictionary entry for allocated item by including 
lattributes from ALLOCATE and second file statements. 


IEMEY 


| 
| 
| 
| 
| 
| 
| 
| 
|E 
| 
| 
| 
| 
| 
| 
| 
| 
| 
|MOVEST (EZ) 
| 

| 
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{Collects attribute given for an identifier and copies its dictionary 


|entry. 
| 


|Processes ALLOCATE statements. 


[Processes identifier in ALLOCATE statement. 


| 


|Processes major structures. 


{Hashes BCD of identifier to obtain its dictionary reference. 


[Scans text for explicitly pointer-qualified variables. 


[Copies dictionary entries for explicitly qualified based variables. 


|Scans second file, reverses pointers. Scans ALLOCATE statements. 


[Copies second file statement and associated dictionary entry. 


ee ATPROC and ATPROD for each member of structure. 


Table FA. 


Phase FA Dictionary Context 


EUA NS SR t VV RM O EA SCAN ae 


| 


| Statement or Operation Type | Routine | Subroutines Used 

— A ee eee o o —— a ——————— 

|Scans text [CE30 |CENDTS, CETRAN 
A EI eu ed Ue eui PS Á——— — — Y 

|Reorders subscripts; makes dic- {CEID | CESCN 

|tionary entry for file and event | | 

| variables | | 
~-------~-------------------------- +~-------------- }------------~------------------- 

{identifies keywords | CER YWD |CEKEND, CEKEOB, CEKEOP, CEKON, 

| | [CEKPRC, CEKSND 

ët FER NES cqui mea ceu o ls 

[Scans dictionary [CESCN [CESTUC, CEYES, CFPDER, CFPDR2, 

| | |CHASH, CE3XX 

dd qund cdm MR Ma cid m DE ded Mm ic M [om ve em ee ee EE 

|Makes dictionary entry for varia-  |CFPDR2 |CDFLT, CDICEN, CDIMAT, CEONCK 

| bles | | 

| ----------------------------------- +--------------- }~------------------------------- 

¡Scars dictionary entry for con- | CECON | CHASH 

[stants and makes new entry, if | | 

[necessary. | | 

| ~----~--~--------------------------}--------------- }-------------------------------- 
Scans PICTURE chain entry and makes|CEPICT | None 

[new entry, if necessary. | | 

Él de dh RA e LIAE cs Lanas A A AAA 


[Main Processing 


Section 3: 


Charts and Routine Directories 
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Table FA1. Phase FA Routine/Subroutine Directory 


proce cr ee queri O ee eG rt ree Gere MET T TUM 1 
| Routine/Subroutine | Function | 


























{| CDF LT {Determines default attributes for identifier. 
| CDICEN erate default dictionary entry for identifier. | 
| CDIMAT rere default scale for identifier. 
Ken [Transfer point for zero or blank. | 
[CECON (FB) [Scans dictionary entry for constants. | 
e eebe prime text marker. | 
| CEID Sere subscripts and makes dictionary entries for files and Sch 
| | variables. | 
dona PRE point for constant routine. | 
icono eee point for iSUB. | 
¡GENER EE point for CALL to get over chain. | 
lan fees SN from DECLARE statements. | 
ip iuge eate END keyword. | 
ee ee end-of-block marker. | 
Dm [Handles end-of-program marker, or start of second file. | 
V GERE e point for keyword. | 
CERO IN point for iterative DO. 

REGN dele ON keyword. 

Kee TE point for picture format item. 

kaye TM PROCEDURE keyword. | 
m odds SN, etc., to output stream. | 
ne D Start of second file statement. | 
foe noes keywords. | 
ips cod point for left parenthesis. 

Leite kog of text block in output file routine. 

oe |Makes entry for programmer-named ON condition. 

foe TEMA dictionary entry for variakles. 


[Scans picture chain entry. 


| CERP [Transfer point for right parenthesis. 

V GEBEN oe dictionary. 

hagas S semicolon. 

reng [Points at next entry in structure cnain. 

ARS API SORA NES IC IN NO SEEN SUCHE TV RI IN CAR AO A A A J 


142 


Table FA1. Phase FA Routine/Subroutine Directory (cont'd) 
CS re se A TES A a equos eme eem T AO O GÈ ee pe Se gue e 1 
[Routine/Subroutine| Function l 
}------------------ dra renn 1 
|CETRAN [Translates keyword into transfer instruction. | 
: | | 
[ CEYES |Compares structure levels. | 
| | | 
| CE2L Transfer point for second level marker. | 
| l | 
| CE30 |Controlling scan of text. | 
| | | 
| CE31 [Tests for end of block. | 
| | | 
| CE32 |Moves one byte to output stream. | 
| | | 
[CE300 |Switches to appropriate routine. | 
| | | 
| CE3XX |Compares identifier in text with entry in dictionary. | 
| | | 
|CFPDER (FB) [Makes dictionary entry for ordinary identifier. | 
| 
|CFPDR2 (FB) |Makes dictionary for formal parameter. | 
| | | 
| CHASH |Hashes identifier. | 
| | 
| CHASHC |Hashes constant. | 
| | | 
| IEMFA |Initializes phase. | 
ko E E Se A A A Lu a a ee oa UE J 

Table FE. Phase FE Dictionary BCD to Dictionary Reference 
CARS STS mimm eim ees EE EA O gem EE ee Py a eee 1 
| [Main Processing | | 
| '" Statement or Operation Type | Routine | Subroutines Used | 
frer a ł----------------------------------- 1 
[Scans text |CE30 |CENDTS, CETRAN | 
——— NS oo 1 
|Scans dictionary | CESCN |CESTUC, CEYES, CFPDER, CFPDR2, | 
| | [CHASH, CE3XX | 
-----------------------~----------- }---------------}----------------~------------------ 1 
|Checks for array, function, or | CELP | CEFNCT | 
|pseudo-variable if left parenthesis| | | 
lis found | | | 
—--------------- -------------—------ł---------------ł-----------------------------------{ 
[Tests for end of text block | CENDTS |CEKEND, CEKIDO, CEKPRC | 
----------------------------------- }---------------} -----------------------------------4 
|Identifies keywords | CEKYWD |CEKEOB, CEKEOP | 
EE EE 
{Makes dictionary entry | None |CDFLT, CDICEN, CDIMAT | 
ko e A nice uec —————— Á Mo A Á— eS J 
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Table FEI, 


— —Á— Se 
[Routine/Subroutine 


a 
| 


Phase FE Routine/Subroutine Directory 


Function 


| CDFLT |Applies default rules. 

|CDICEN galee dictionary entry. 

[CDIMAT [Sets flag for default routine. 

oe ee validity of function reference in text. 

oon eee END keyword. 

cutee TNNT end-of-biock marker. 

leauge Mr end-of-program marker, or start of second file. 

GE E iterative DO keyword. 

| CEKPRC ee PROCEDURE keyword. 

lò |Identifies keyword. 

for {Checks for array, function, or pseudc-variable if left parenthesis 

| lis found. 

Na EE for end of text block in output file. 

SEG Gene dictionary. 

foe mon at next entry in structure chain. 

oo a keyword into transfer instruction 

oo rS: Structure levels. 

m |Controlling scan of text. 

on rec identifier in text with dictionary entry. 

V EON (FF) |Makes dictionary entry. 

En |Makes dictionary entry for Statement with ordinary identifiers. 

GE eeng dictionary entry for formal parameters. 

¡cansa |eatoulates offset in hash table for given BCD. 

Table FI. Phase FI Dictionary Checking 

[TUTO MI. SCAURUS TA NT QUAS mI ur UT E Nu PAS e | TET a V e. M NIIS INR IECUR SITIS I EAE ee ENG TEE ERE SÈ 

[ [Main Processing| 

| Statement or Operation Type | Routine { Subroutines Used 

a [ceser LO 

[Identifies keywords = — |CEKEYW — — [CEREOB, CEREOP, GERIDO, CEKSN OU 

[Checks GOTO statement references |CEGOTO ` E 

[converts GOTO to GOOB, if necessary|CEGOB ` VEL Os eee SUE 

[akeeko an e TS WEE 

| Checks data list items for validity|CEDTCK puc eer 
pò Ze i Le e ee dl xcd enr ud cita C ss E Eu a CE D AIL A 
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Table FI1. 


Phase FI Routine/Subroutine Directory 


[Routine/Subroutine| ^ Function | 000000000000 [ 
[cecon EDE T a imac a | 
| CEDDOL eege function names used as control variables for DC groups. | 
| CEDOND TORIS end of iterative DO groups. | 
Coote neces whether dictionary reference needs to be checked. | 
Beete e data list items for validity. | 
ice [Checks file references. | 
m DTE function markers. | 
Gë ee GOTO to GOOB, if necessary. | 
aeons EH GCTO statement references. | 
nei ere iSUBs. : 
cone meer Scan pointer over dictionary reference. | 
‘Caen MUR END Statements. | 
E ea end-of-biock marker. | 
Kees A end-of-program marker. | 
eg {Identifies keywords. | 
eege Wee iterative DO keyword. | 
I RON Ee ON statements. | 
Ve la statement number. | 
ra eee left and right parentheses. | 
ee e validity of keywords in the text. | 
oe P PROCEDURE and BEGIN statements. | 
SERENA P remote format references. 
m. ee semicolons. | 
ee {Controlling scan of text. | 
| GEM eet A RR P pute ER cc rr UE D T e Ri m e oke 4 
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Table FK. Phase FK Dictionary Attribute 
e moram A UE qe Ded MEE M m quor xc p mm eene der 1 
| {Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
J———— e na "a 
[Scans attributes area for SETS | FO1A | None | 
|lists | | | 
-~---------------------------------- door ro pi roro 
|Scans SETS list | FO2 | None | 
}----------------------------------- +--------------- }-----------------------------------. | 
[Processes constants | CONPRO | None | 
}----------------------------------- +--------------- }~---------------------------------- | 
EECH identifiers | CESCN |CESTUC, CE3XX, CHASH | 
See A EE 


pick FK1. 


t 
|CEIDLP 


| 
| CENQUL 


| 
| CESCN 


| 
| CESTUC 


| 
|CE3XX 


| 
| CHASH 


| 
| CMPERR 


| 
| CONPA 


| 
| CONPRO 


| 
| ENDFO 


| 
| FOERR2 


| 
| FOLA 


| 
| F02 


| 
| FoU 


| 
|GETSCR 
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Phase FK Routine/Subroutine Directory 


[Scans qualified name. 


[Processes unqualified name. 


[Processes identifier. 


|Finds address of next structure in chain. 


[Compares current BCD with BCD in hash chain. 


[Calculates offset in hash table for given BCD. 


|Provides terminal error action. 


{Inserts constant in ordered stack. 


[Processes constants. 


[Releases control. 


|Diagnoses constant greater than 255. 


[Scans attribute tidy-up area. 


| 
|Scans SETS list. 


| 
[Completes SETS dictionary entry. 


[Obtains scratch storage. 


Table FO. 


Phase FO Dictionary ON 


{Main Processing] 


| Statement or Operation Type | - Routine | Subroutines Used | 
}-----------------------------------}--------------- }----------------------------------- 1 
[Scans input text for ON, SIGNAL, | FKMVIT |BEFTRN, CENDTS, QP | 
land REVERT statements | | | 
——— — }----------------------------------- { 
{Moves second file from input text |F2 [CENLTS, BEFTRN | 
es to output text block | | | 
-----------------------------------ł--------------- ł-----------------------------------] 
[Makes dictionary entries for ON- | FKDCEN | LABCD | 
[conditions found in ON, SIGNAL, and| | | 
| REVERT statements | [ | 
}----------------------------------- $--------------- }-~--------------------------------- { 
{Examines BCD of file entries ref-  |MVSIG | CENDTS | 
|erenced in ON, SIGNAL, and REVERT | | | 
jstatements; scans previous entries | | | 
[for ON conditions | | | 
}-----------------------------------}--------------- }----------------------------------- 1 
|Processes CHECK and NOCHECK list. | BEFCHL |CENDTS, LABCD | 
}---------------~-------~------------}--------------- 4----------------------------------- 1 
[Creates dictionary entries for | NOMOVE | QP | 
[condition prefixes | | | 
EMT ——— Á——— oi e io ——— ss ——  ———————— — — 4 

Table FO1. Phase FO Routine/Subroutine Directory 
A UK Toce PT MR EDU E a 
| Routine/Subroutine| Function | 
ÓN dra aran 1 
| BEFCHL |Processes CHECK and NOCHECK list. | 
| | | 
| BEFTRN |Replaces statements containing dummy dictionary references by error | 
| [staterents, and generates error message. | 
| | | 
|CENDTS |Requests a new text block for output. | 
| | | 
| FKDCEN [Makes dictionary entries for ON conditions found in ON, SIGNAL, and | 
| |REVERT statements. | 
| | | 
| FKMVIT |Scans input text for ON, SIGNAL, and REVERT statements. | 
| | | 
| FKNOCK |Processes CHECK and NOCHECK lists. | 
| | | 
| FKPROC [Scans input text for ON, SIGNAL, and REVERT statements. | 
l | | 
|FPO10 (FP) [Chains initial label statements and makes second file dictionary | 
| Jentries for each label array initialized in this way. | 
| | | 
| F2 |Moves second file from input text block to output text block. | 
| | | 
| LABCD [Creates a dictionary entry for each label constant and each entry | 
| (label mentioned in a CHECK list. | 
| | | 
[MVSIG |Examines BCD of file entries referenced in CN, SIGNAL, and REVERT | 
| |statements; scans previous entries for ON conditions. | 
| | | 
| NOMOVE {Creates dictionary entry for condition prefix. l 
| | | 
103 [Processes condition prefixes changed in current block. | 
| | | 
| OP {Determines which condition prefixes require dictionary entries. | 
| [ | 
| R8 |Moves statement to output buffer. | 
AA SPD NUN ae eg S A A —— a A ei ik J 
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Table FQ. Phase FQ Dictionary Picture Processor 


sarum D MC M MC ML M MEME qoe cete DEE E IN Um ER O 1 
[Main Processing] | 
| Statement or Operation Type | Routine | Subroutines Used | 
eee ecc cuu ie seem ucc e E Due ee EE 4 
{Controls scan of PICTURE chain; | CYBR3 |CYEK, CYFIND, CYTABL | 
Jinitializes | | | 
}----------------------------------- }--------------- }----------------------------------- 1 
|Picture character 9 |CYNINE | None | 
}----------------~------------------}-=-------------- }----------------------------------- 1 
|Picture characters S, $, +t, -. | CYSDPM | None | 
A ae re See ee PS VA SS 1 
|Picture character V | CYV | None | 
——ÓÁ—M——— pa ———— 1 
{Picture character E |CYE |CYc21 | 
—— M QE }---------~-----}-----------------------------------4 
|Picture character K |CYK | CYC21 | 
E Po ——— d 
| Picture characters C,R,D,B | CYCRDB | None | 
—— P — — — Pe { 
[Picture characters 1,2,3 [CYOTT | None | 
|---~-------------------------------}--------------- }~-~--------~----------------------- 1 
[Picture character P {CYP | None | 
|-------------------~---------------}--------------- --~------~------------------------- { 
|Picture character Z |CYZ | None | 
}------~----------------------------- +--------------- }----------------------------------- 1 
|Picture character * | CYAST | None | 
€—«—————— — }-----------------------------------4 
[Picture character Y |CYY | None | 
———————————— ==- }~--~----------------------- -------- 1 
|Picture character G |CYG | None | 
—— OO ————— }-----------------------------~----- 1 
|Picture characters 6, 7, 8, H | CYSSEH | None | 
~~~ --------~----------------------- dor pa roro 
|Picture character M |CYSTM | None | 
}---~------------------------------~}--------------- ł---------------------------------—- 1 
|Picture character F |CYF | None | 
—-————Á——Á— D —————À————X —— 1 
|Converts integer constants to scale|CYC97 | CYCONV | 
[factor | | | 
~---------~------------------------ — ———— ——————— Á 
[Calculates scale factor |CYFNT | None 
mnc A EE A Il ————— A ca e e E J 
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[CYAST 
lévin 
le VERS 
‘icons 
Gom 
ee 
GE 


| 
|CYC97 


| 
[CYE 


| 
|CYEK 


| 
| CYENDD 


| 
| CYF 


| CYFIND 


| 
| CYFNT 


| 
|cvc 


| 
|CYK 


| CYNINE 
| 
| CYOTT 


| 
| CYP 


| 
|CYSDPM 
| 

|CYsSs 


|CYSSEH 
| 
| CYSTM 
| 
| CYTABL 


| 
| cvv 


| 
|CYY 


——— — — — — — — — — ee aa ——— — a aaa sam we am we ee — a «se qa sen «up den ee tou am ee Re wen anv «tou awè we «nw es aa m ——— 


—— — — — e — — — E — —— —— an sam ana A a a ane a — ni a an» e —— —— E e — — — — — — — — n —— oun ann mi re — — a — oe a — — mm we man mm — — pn 


| Processes picture character *. 


|Identifies picture character. 


|Controliing scan of PICTURE chain. 


|Converts integer constant to scale factor. 


[Processes picture characters slash (4), comma(,), point (.), and 


[Processes picture characters CR, DB. 


|Adjusts data to terminate picture before illegal character. 


|Converts integer constant to scale factor. 


|Processes picture character E. 


[Completes entry for correct picture. 


{Releases control at end of picture chain. 


[Processes picture character F. 


|Obtains code for next character in picture. 


{Calculates scale factor. 


| Processes 


| Processes 


| Processes 


| Processes 


{Processes 


| Processes 


| Processes 


| Processes 


| Processes 


picture 
picture 
picture 
picture 
picture 
picture 
picture 
picture 


picture 


character G. 

character K. 

character 9. 
characters 1,2,3. 
character P. 
characters S, $, t, 7. 
characters 6,7. 
characters 8,H. 


character M. 


[Code table for picture characters. 


[Processes picture character V. 


|Processes picture character Y. 


[Processes picture character Z. 
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Table FT. Phase FT Dictionary Scan 


—- 
l 
! 
| 
! 
I 
| 
| 
| 
| 
| 
| 
i 
i 
! 
| 
i 
l 
I 
| 
| 
| 
! 
i 
i 
U 
l 
1 
l 
i 
1 
| 
| 
! 
t 
l 


| Statement or Operation Type 


I------7--------—--------------------- 
[Scans second file 


[Data variables 


t SH A SS GE kn e 


[Event or label variables 


I 
l 
l 
! 
l 
[ 
1 
l 
l 
[ 
! 
I 
I 
t 
| 
U 
i 
l 
l 
[ 
l 
! 
l 
l 
l 
1 
l 
[ 
i 
1 
1 
I 
[ 
t 
t 


|Dimension attributes 


——— — — — — — — n — ame am ann —— an en — e a t an me — —— — — —— — ee ——— — mm pm — 
— — — tu “nee a —— a —c —o M FE mm mm e tou um i —— a aw E — ——— 
— — — — a — — — —— w ou e! an «We — GEN —À ee an ee — — — — — one we vm À— ee rm 
——— — — — — — ewe — —À a —— e a a aa an — MÀ ann  — — e e — nm  — a — w — 
— ——— — —Á — — — — — — —— —— A mm n — 9 ee — — — E n an — c — —— —— mm —— mm 
——— — —À —À mn 0 n — we — —— —— — — — a rm — E ——À an a A enn a ww — x — ew 
——— — — mm an —— E mm e "M —À— vn a rn EN E vm pm vm mm a aa A rn — -— pn mm re 
——— —À —Á re o — — — — — — ———— —— E a an ne rm — a — — re mm e an an — 
—— — M— — —À —À —À ee «un m MA a tan uu a —— ane a vn a A nw we e ee 
st — À— «nwe M ëm ane — — ann — E A wa — mt ee ee 9 «n À— M A c anm «an mp —— —— 


| Structures 


l 
l 
1 
! 
1 
1 
l 
1 
I 
! 
1 
l 
[ 
l 
l 
l 
| 
l 
i 
1 
1 
i 
1 
i 
1 
1 
i 
| 
i 
t 
1 
1 
l 
| 
1 


150 


PASA ARAS PASAR ANA A 1 
|Main Processing | | 
| Routine | Subroutines Used | 
ł--------------- }----------------------------------- 1 
[Aci | None | 
£----------- }----------------------------------- 1 
|B1 | None | 
+----------- ł----------------------------------- 1 
| DATVAR | None | 
+--------------- }----------------------------------- { 
| EVLABV | None | 
d--------------- }----------------------------------- { 
| FO | None | 
}--------------- }=---------------------------------- i 
|G2 | None | 
4+--------------- }----------------------------------- 1 
|63 | None | 
ł--------------- Po 1 
|GE1 (None | 
+--------------- }----------------------------------- 1 
| P1A | None | 
}--------------- }----------------------------------- { 
| QA4 | None | 
Jo o eee 1 
|QA3 | PROPIC | 
ł--------------- ł----------------------------------- 1 
[QA2 | None | 
ł--------------- ł----------------------------------- 1 
[QX | None | 
ł---------------ł---------------------------------—- 4 
| QA1 | PROPIC | 
ł----------- ł----------------------------------- 1 
[CONST | None | 
}----------- }----------------------------------- 1 
| STRUCT |AJDMNRT, MKDMTB, MVTXT | 
Loa IS A A AAA J 


Table FT1. 


Phase FT Routine/Subroutine Directory 


|Routine/Subroutine| ^ Fenction S i 
E----- ------------- ——— +--+ 25 = + === == === === { 
| AC1 [Scans second file. | 
P epee: second file statement marker. | 
P TM relevant dictionary entry at statement. | 
| AJDMRT |Modifies second file statements to initialize dope vectors for base | 
| |elements, rather than for the containing structures. | 
(si es dictionary. | 
ET pos dictionary scan. | 
Geen Pë constants. | 
DARA TAE data variables. | 
for ës event or label variables. | 
Im ket dimension attributes. | 
E e initial label statement to the second file, collecting NUN. 
| jer all statements for the same array. | 
m kesye CONTROLLED chain. | 
e res AUTOMATIC chain. | 
m sche STATIC chain. | 
aes A dimension tables. | 
Tr TAM text blocks. | 
| nostre cla des precision data from picture tables. | 
lists TEM 'dope vector required' bit. | 
TO ee ENTRY type 5 and 6 entries. 
pre e ENTRY type 3 entries. | 
tes Ee ENTRY type 2 entries. | 
Gë ee ENTRY type 1 entries. | 
ox Gries ENTRY type 4 entries. | 
(eege er Structures. | 
[reuso | transfer vector for appropriate chaining routine. | 
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e Table FV. 


| Statement or Operation Type | 


|Reverses second file pointers; | LEMF 
[scans text for block heading state-| 
|ments; allocates statements and | 
[references to dynamically defined | 
| data | 


+ 
|Examines ADF references in second |DEFCOM 
[file; completes defined item dic- | 
|tionary entry | 


{Detects dictionary references which|DEFTST 
|refer to dynamically defined data | 


{Examines dictionary references and |DATCPY 
[moves any associated second file | 
[Statements to the output string | 


{Inserts dictionary reference of | FVPTR 
|pointer in associated based varia- | 
|ble entry | 


|Processes adjustable extents on 
|based arrays | 


{Processes adjustable lengths on 
based strings | 


| FVSDV 


| 
(he an ie e ML e ie SONS dtc Sa ee. L 
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Phase FV Dictionary Second File Merge 


Routine 


| DATCPY, 
| MOVE 


| F2MOVE, 


DEFMOV, DEFTST, F2MOVE, 


MOVE 


ee «ma «ra a au awa ee ee ee ee e c a a ee a — 


e —— re ee am ana A X en min es aam es itè ee swe ee ana zm a € m oun mm 


———— a we a —À a € ee tw aw ER we «wa us a E «nw aw mèm — pm tv 








eTable FV1. Phase FV Routine/Subroutine Directory 


| DATCPY eee second file statements associated with dictionary reference to| 
| [output string. 
| 


DEFCOM (FW) [Examines ADF refenences in second file; completes defined item dic- 
|tionary entry. 


| 
| | 
| | 
| | 
| DEFMOV |Modifies text references to dynamically defined data. | 
| | 
|DEFTST |Detects dictionary references which refer to dynamically defined | 
| |data. | 
| | age , l | 
| FV [Scans second file reversing pointers. | 
| | | 
{FV {Initializes text scan. | 
| | | 
| FV10 [Scans text. | 
| | | 
| FV16 [Releases control. | 
| | | 
| FV18 | Processes ALLOCATE statements. | 
| | 
| FV19 |Processes PROCEDURE statements. | 
| | 
|FV20 [Processes BEGIN statements. | 
| | | 
| FV34 [Scans AUTOMATIC chain. | 
| | 
| FVPTR [Inserts D.R. of pointer in associated based variable entrt. | 
| | 
| FVADV |Processes adjustable extents on based array. | 
| | 
| FVSDV {Processes adjustable lengths on kased strings. | 
| | 
[| F2MOVE [Moves second file statement to output string. | 
| | 
IEMFV Controlling scan of second file; invokes processing routines. 
| | : ` S | 
| MOVE {Moves text from input string to output string. | 
Lulu e E ea E donec eec: eto E O E C i A AA 4 
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Table FX. Phase FX Dictionary Attributes and Cross Reference 


E E THESES quere e USED ERNEUT ES TUR 1 
[Main Processing] 


| Statement or Operation Type | 


[Scans CONTROLLED chain for non- 
|parameter DECLARED, CONTROLLED 
[dictionary entries 


+ 

| 

n 

| 

| 

| 

+ 

| 

| 

4 
|Sorts BCD of variables and creates |FX0010 

|entries in scratch text storage | 

+ 

| 

| 

| 

| 

4 

| 

| 

| 

4 

| 

| 


[Scans circular chain of ENTRY 
[Statement dictionary entries asso- 
|ciated with a particular PROCEDURE 
| Statement 


[Scans AUTOMATIC chain associated 
|with particular PROCEDURE or BEGIN 
| block 

{Prints heading line for tables 
[according to options specified 


[Scans sorted chain of identifiers  |FXPRNT 


|--------------~-------------------- ł--------------- }----------------------------------- 


|Determines attributes of a given 
Jidentifier if the ATR option is 
| specified 


[given identifier (if XREF is 
|specified) and prints them in 
[external decimal form 


| 
| 
+ 
| 
| 
| 
| 
+ 
|Converts EBCDIC of particular | 
lattribute to required external form| 
land moves it to print area | 
+ 
| 
| 
| 
4 
| 
| 
| 


|Prints BCD of identifier having 
|converted it from internal form to 
|external form 


[Converts an internal binary number 
|to external decimal form and moves 
lit to print buffer 


[Frees all scratch text storage and 
|relzases control to next phase 
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Routine 


————Ó — we — — — — — — — — — — — — — — — — so SE — — — — — — — —— 


None 


| FX0299 


Subroutines Used 


FX0101, 


FX0105, 


| ATTMOV, FXBCD, FXDCLN, 


| REFMOV 


None 


None 


FX0120 


FXEND, 


——— — — a Ou —— — ee E — — —— — EE — — — —— ——— — — we a — a a ee — 


| 
1 
| 
1 
| 
d 
| 
| 
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Table FX1. Phase FX Routine/Subroutine Directory 

PATA ZU cuta qucm TUA pecore rog I IM ND Mme eec p me ce eer Nace Eger 1 
[Routine/Subroutine| Function | 
[------------------ -.--------------------2--2-------------2---------- woo E E IILI- 1 
|ATTMOV (FY) [Converts EBCDIC data to required form, moves data to print area. | 
| | | 
|FXBCD (FY) {Moves identifier BCD to print area, determines options tc be print- | 
| | ed. | 
| | | 
| FXDCLN (FY) |Converts binary number to external BCD, moves it to print area. | 
| | | 
{FXEND (FY) |Frees scratch storage, releases modules, releases control. | 
| | | 
|FXHD (FY) |Prints heading line for table according to options specified, | 
| | | 
| FXPRNT (FY) {Scans sorted chain of identifiers. | 
| | | 
| FX0000 [Scans STATIC chain. | 
| | | 
[FX0010 |Sorts BCD of variables and creates entry in text for each item. | 
| | | 
|FX0030 |Tests for end of STATIC chain. | 
| | | 
| FX0100 [Scans PROCEDURE-BEGIN chain. | 
| | | 
[FX0101 [Scans parameter list from PROCEDURE and ENTRY statements. | 
| | | 
[| FX0105 [Scans circular chain of ENTRY statement dictionary entries associat- | 
| |ed with a particular PROCEDURE statement. | 
| | | | 
|FX0120 {Scans AUTOMATIC chain associated with particular PROCEDURE or BEGIN | 
| | block. | 
| | . | 
| FX0170 [Scans CONTROLLED chain for nonparameter DECLARED CONTROLLED dic- | 
| |tionary entries. | 
| | | 
| FX0250 [Scans text, making chain of references to each dictioary entry. | 
| | | 
| FX0299 |Determines attributes of a given identifier if the ATR option is | 
| |specified. | 
| | 
|REFMOV (FY) |Moves the references to an identifier to the print buffer and | 
| |prints. | 
Le AR LET LoS dH —ÁÁ———————MÁ——— MÀ P— EE ER J 
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Chart 04. Pretranslator Logical Phase Flowchart 
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Chart GA. Phase GA Overall Lcgic Diagram 
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Chart GB. 


Phase SB Overall Logic Diagram 


kek RE 
*GB * 
* Ais 
* x 
* 
. 
H 
H 
MR X 
AO A ) ARERR REE 
* * 
* INITIALIZE * 
* TEXT POINTERS * 
* LOAD IEMGJ * 
* * xokk 
AREER EE kk kk * * 
. * na x 
SUM GÀ * * 
kkt 
: B1 * X. X 
* . D 
em D e NO 
A6 X D AG y" AG e Be AS e Se 
Ao olo D ok ao ok ok A2" e, *, B&^ "a, BS" "e, 
* * ok *. D ak “a EL *, 
* * ef FORMAT *. NO "mH “a NO READ *. ND gU Ze 
* SCAN TEXT X*oeocceccecX*, STATEMENT A EMENT VE Ta STATEMENT oMeoe nennc XM, “08 REWRITE "e? 
* * * e Ch ox s STATEMENT, $ 
* * “. e "e, Vet "e kt x a+ 
kk kok ok ik kak det kk *. Wade om ho ot 
* YES * Yes * YES * YES 
. eke e . o . 
e * * . e o o 
eXe* Bl * . . E e 
T. * S s n ` 
D eee . X X X 
. AFORMT X e fe at, e Be 
. di A c3 Se Cé LÉI c5 * 
. * FORLS Se D e *, 
e Ka Ko Fe OREST kaisa N? LÉI D WP D a 
eeccecccceseecesccc * SCANS FORMAT * Deg He COBOL FILE "ap mo eo FILE o®eeecXe ooo Be COROL FILE ,* 
* LIST (SEE F3) S . e? D o ko n% 
keket * e “a, et E r * ^ o 
* * errar OO EE a Be E Ma a x te af 
* 0] e o * YES * VES kikk * YES 
* * e D ` * . 
*kkk a e a * Dl * e 
* ^ . ^ * o 
eXoesecceccccoconeococeectotscoceeoecccoeccctonso^^ eXeosesnyosnsr LJ teik o 
. e * H e 
AB X e Be H . X X 
MARON] oe detejeoteteietek n2 Se eR KS FES EE kdk e RERKANG kkk kkk MO eR D 5 CHEER EEE 
*SCAN STATEMENT * D Ze ka * e MAP/CNPY x * WRITE * 
* SKIPPING DATA * YES ¿E GFT OR LÉI LA E E E E fe E Kam ka ka he EE EE Bm tn he ha He Hoke Kok 
*SPECIFICATIONS GR, oe eneen fe P e Base * REPETE * ` * COMPARE *ooc7 * COMPARE PL/I * 
* TRANSMITTING * Se STATEMENT. + D * STATEMENT * e *STRUCTURES (MAP) r *AND COBOL MAPS x 
* OTHER OPTIONS * Ze Che H * * E * COPY INSERT X t SENBERT BUY/SFLL* 
KAAL LE E E EA ka ¿E a MO aca AREER o Mk koka E EE doo X AAA aka aka aka eka aa EC 
a * NO kike e e kkk* . 
e . * * e D * = e 
D D * 02 * D enonnorcrncanan x Bl k n 
D D * * X e * X 
e e kkk wenn a eek KEE 
x x * + e * * 
ex, ete * 81* ` « Di * 
F1 Ka E2 Lä * * e * * 
"E He .* D een Lid id e kiere 
D *, Nn .* END “e NO * * e 
Mi OPTIONS s*evees TN OF TEXT e*ccc e X* Bl * e 
e SKIPPED e Mi .* * * D 
Re a+ Re «A E de o 
Ze * Se «A H 
* YFS * YFS # F3 * D 
. e * * > 
" " thee . 
. X . . 
e REKRE D . 
D *GK * . . 
X * A3* FORLST X a 
EE io * k Sido Y ade . Hold E SR ko kodak 
* * * M * * 
* RETURN- LN * * SCANS * e * OUTPUT AND * 
DEA SCA * * FORMAT LTST * e * RETURN * 
e *SKIBPED OPTIONS * * . * (SEE C2) * 
S 3 Pret * * < * * 
. AA * * KEALEC EE KAELL ELE) e ka ai aka ak aka dodo aka ka ae ak aka al 
hak 5 * FL w k a X 
* * . * * kak f è > 
* FI * x (TE D e 3 è . 
* * e X * 63 ke Ke . E 
LA AA) e e » "n e D 
X * Axio X e NO e YFS 
e Be LAB178 es Be ako F6A ete 
61 Ha Zëëragërbrnesget 63 Ry wi un G5 E 
D Mi * LST * Mi .* bati 
e* FORMAT Ze E A e“ ITERATION *, NO Ant YES D END D 
Mi OPTION e Beeeneeee X* SCANS * Se F ACTOR Sege geg «KÈ. "PAREN HES 1S site res eege OF FORMAT ¿* 
D D * FORMAT ST * Mi D * LISTS - 
Se e 8 * (SEE Fi * e .* Mi a" *, 1* 
*, V Acor ot *, ot a nw et 
* NO * YES * * NO 
ES DT R . 
e * * a e 
. * FI See e D 
. * * *. e . 
x Steg e NO a D 
et, SCAN2 DÄI x X 
H1 Me H2 me PR kl aki ii EC LEE) LAT EISE ae ed e EEE 
e P Se e Se * * * UNSTACK * 
D DATA Se DOES D * OUTPUT BUY * * DICTIONARY x 
*, EDIT op STEEN ft CONTAIN «eu * AND TEMP * * REE RENGE * 
*. LIST . H TTO0O D *[TOO STATEMENTS* * OF TEM * 
Ke ef . P ef * Wi * * 
e, at pi en RÉIERT Eh ki kok kok dok fok ok ok ak ak 
* NO hee * YES D e 
D * * e D D 
. * H2 * o e ^ 
. * * kal . . 
. oe . . e 
H H X D 
ete LLDOTT H e Be H ESA X 
Ji Se BEER KE ID kk kwak J3 Mo EE Eve Hi 
Cha Se * OUTPUT PRIOR D ODÈ? * 
* END * TEXT AND END * a EF NO UTPUT * UIPUT AND * 
ess * OF STATEMENT ot *SCAN TO Tite jM * *o PARENTHE SIS, e E FOUL OWING Eege AFÈ AEN * 
. Ze e * REPLACE IT AY * e FOLLOW * FORM En * M NIS * 
. Mi o* *  SFMI-COLON * Se wë » * * 
X ke a MO doc KEE EAA) ke wf LAAFE poete eie debtor 
A * YES D * YES ^ 
* . . . e 
* FL w . D a a 
* x xX D . x 
r++ kk e . kekk 
* . a * * 
«BI w MKROOM x X * G3 * 
* A OA ox AED] * * 
OR MAKE ROOM * * STACK xoc LAAA/ 
kIN nUTPUT TEXT hd * DICTIONARY Li * 
* ANN INSERT keson * REFERENCE anno XA FI k 
bè END STATEMENT * E * OF TEMP * 
* e * kék 
AER D SOR ok k k k k OK A 


158 


AAA 
H2 
LAKE 


eet 
ent 


Chart SK. Phase GK Cverall Logic Diagram 
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Chart SP. Phase GP Overall Logic Diagram 
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Chart HF. Phase HF Cverall Logic Diagram 
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Table GA. 


Phase GA DCLCB Generation 


——— — — n en san — a ee a — M — X ve pn en nen — oe 


(Main Processing | 


| Statement or Operation Tyre | Routine | Subroutines Used | 
EE an MN ILO0100 Ct KEREN | 
|Generates DECLARE control block ` Ion |CHRATT, IdEENV = 
|entry | | | 
| ---------------------------------~-}---------------}----------------------------------- 1 
p i uu ch E cio AMI E ! 
Table GA1. Phase GA Routine/Subroutine Directory 
|Routine/Subroutine| ^ Function ^ 00 i 
[CHKATT | [Checks attributes and creates control words. = — 
| THEENV ICE environment options, and inserts them into DECLARE control | 
| |blocks. | 
Gg anes point from compiler control. | 
o i enne STATIC chain. | 
TER Vos DECLARE control block entry. | 
RT [Test point for environment entry. | 
ec oa point from environment processing. | 
nade aie file attributes entry. | 
oe eee point of SYSPRINT file found. | 
Ge ee CPEN control block entry. l 
Ge ee control, | 
A e ote SEN I -—— EE J 
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e Table GB. Phase GB Pretranslator I/O Modification 
ei a eelerer a 


[Main Processing | | 


puce c ee cU ey Ce n e peu AS 
| Statement or Operation Type | Routine 
—————Á—Ó—————M M ees 
|Removes all second level markers [Throughout 
I | phase 

———————— Á— € ————À 


+ 
|Reorders options to put EDIT, DATA |A8 
Jor LIST last | 


|Moves DO specifications to precede |SCAN2 
|relevant list in data lists, adds | 
|END statements | 


|Expands iteration factors in format|FORLST 
| lists | 


|Checks for use of COBOL files in [AU 
READ, WRITE, and LOCATE Statements | 


| 
a se NM O EN a AA E SE 
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| Subroutines Used | 
}----------------------------------- { 
| None | 
| | 
}------------------------ ~---------- d 
|SCNS, SCAN2 | 
| | 
}----------------------------------- i 
| LLDCIT | 
| l 
| | 
}-----------------------~------------ d 
| None | 
| | 
RE EE { 
| LOCATE, READ, WRITE, DELETE, MAP, | 
|COPY, STSCAN | 
EEN 4 


eTable GB1. Phase GA Routine/Subroutine Directory 
SST TARA E E E TT eie neue eU 1 
l | 








Routine/Subroutine Function | 
}~----------------- door = $= $= 2+ 2-2 == $= -- == === -------- { 
| AFORMT | Processes FORMAT statements. | 
| | | 
¡Ay |Checks for use of COBOL files in READ, WRITE, and LCCATE statements. | 
| | | 
IA [Scans source text for GET and PUT statements. | 
| | | 
128 |xe-orders options to put EDIT, DATA, or LIST last. | 

| | 
|A21 {Scans GET or PUT statement for data specification. | 
| | | 
{COPY (GC) [Copies a structure and places the copy on the COEOL chain. Sets up | 
| |text skeletons, | 
| | 
|DELETE (GC) |Removes an offending I/O statement and inserts an error statement in| 
| {the output text. | 
| | | 
| FORLST {Expands iteration factors in format lists. | 
| | | 
|F2 |Creates and buys integer temporary. | 
| | 
| F5 [Scans and outputs format item. | 
| | | 
| F5A |Sells temporary. | 
| | | 
| F6 {Tests for end of format list. | 
| | | 
| F6A [Tests for end of format specification. | 
| | | 
| F6B jOutputs end of format specification. | 
|F7 |Scans format list. | 

| | 
LAB17B |Processes format list in GET or PUT statement. | 
| | | 
LLDOIT {Moves DO specifications to precede relevant list in data lists, adds| 
| |END statements. | 
| | | 
{LOCATE (GC) [Checks for the use of a COBOL file, and puts out a warning diag- | 
| [nostic. ` | 
| | | 
[MAP (GC) |Compares the PL/I and COBOL and PACKED(NCNSTRING) mappings of a | 
| |structure. | 
| | | 
| MKROOM |Provides space in a statement in new source file. | 
| | | 
|MR |Initializes text blocks and pointers, and obtains scratch storage. | 
| | 
[READ (GC) |If à READ IGNORE is encountered, no action is taken. If a READ SET | 
| lis encountered, a warning diagnostic is given. If a READ INTO for al 
| [structure is encountered, PL/I and COBOL mappings are compared. | 
| | 
| SCAN2 {Scans option list for end of option or statement, expands DO speci- | 
| |fications, and changes certain function markers into pseudo-variakle| 
| [markers. | 
| | | 
| SCNS [Scans option list for end of option or statement. | 
| | | 
|STSCAN (GC) [Stores the dictionary reference of the file and the INTO/FROM varia-| 
| |ble, and sets flags. | 
| | | 
| | | 
[WRITE (GC) |For structures, the PL/I and COBOL mappings are compared. | 
locsin MO a te a a NP een Ht J 
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Table GK. Phase GK Pretranslator Parameter Matching 1 

E SE DII I UE EE proc USE qeu ee MEE 
| |Main Processing| 

| Statement or Operation Type | Routine | Subroutines Used 
————————Ó————Á— a eee oe eo ae nn eee eae 
{Scans source text for function | BASCAN |CPSTMT, CRSTMT 

[markers | | 
—————————————— M —————— MÀ 
[Processes function, puts out ref-  |BAFM | SCANRP 

|erence and initial code bytes | | 

———— ae eee oe eae E A eee 
{Processes arguments | BALOOP | ADDTGT, SCNCRP 

A a s Ó(————— j---—--—-----22222-22222222-2----- 
[Checks numbers of arguments | ARGNOQ | None 

Lasa ee Bs oh A n ii sa A eat at —— — ha ret —— 


Table GK1. 


—— eae 
jRoutine/Subroutine 


| ADDTGT 
punc 
ENT 

freee 
ere 


| 
| BAFM 


aged 

| BALOOP 
GE 

| BAMORE 
| BANORM 
EN. 

Kee 
E 
BASTAN 
BASICS 
| CPSTMT 
| CRSTMT 
T 


SCNCRP 


| 
EVITE URN S eee ee 
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» 
| 


Phase GK Routine/Subroutine Directory 


|Adds data to output text. 
| 


[Checks number of statements. 


[Tests for STOP marker. 


[Outputs function and first bytes of arqurent list. 


[Tests for end of argument list. 


|Processes function, puts out reference and initial code bytes. 


[Locates SETS list and parameter list for function. 


| Processes arguments. 


ITests whether argument list is present. 


[Accesses next argument in list. 


[Sets STOP marker to scan argument. 


|Examines pseudo-variable. 


|Tests for nested function reference. 


[Outputs warning message. 


[Scans source text for function markers. 


[Outputs argument. 
| 
|Adds closing bytes of a statement to output text. 


|Adds first bytes of a statement to output text. 


{Scans argument list. 


[Scans argument. 


LA — — —— — — ee — A —À — ee ee ee —— — ee — — — — eo ee — a — oe — — — e — a] 


Table GO. Phase GO Preprocessor Parameter Matching 2 


PERE e O O puce ei Qe queer qoem ELE Meere 1 
| [Main Processing| { 
| Statement or Operation Type | Routine | Subroutines Used | 
}------~----------------------+------ }------~---------}----------------------------------- 1 
JInitialization and scratch core | PMATCH | POLYMV | 
Jutilization for Parameter Matching | | | 
12 | | | 
EE E EEE Ee dle E E Leost a e 4 


Table GC1. Phase GO Routine/Subroutine Directory 


proceso mE DIT qoe E eee Euer puc ur BO ZAN queue cpu eese edendi gie ee 1 
|Routine/Subroutine | Function | 
1 


| PMATCH |General initialization and scratch core utilization for Parameter | 
| {Matching 2. | 
| | 

| POLYMV {Moves the routines POLY1, POLY2, POLY3, POLY4 and POLY5 into scratch| 
| 


[storage (see Table GP). 
ko os Pc T —— ——————— ——— —À— e J 
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Table GP. Phase GP Pretranslator Parameter Matching 2 
ESS UE cue UNI US SEI EPI DUIS 2 ir nis oe ee qoot ae eere EE 1 
|Main Processing| | 
| Statement or Operation Type | Routine l Subroutines Used | 
Mr c op A Et Ee CHO EE UK x EDU RU M HUE KR RUNS UK RM PL A | 
{Scans text for procedure and func- |BS1 (ADDIT, STKINF, UNSTCK | 
|tion calls | | | 
ļ----------------------------------- ł--------------- ł----------------------------—--—---—- 1 
|Examines argument lists for expres-|BS4 |EXSCAN, M1, M4, M16, SCANFR | 
[sions | | | 
}----------------------------------- ł--------------- }~---------------------------------- 1 
|Creates temporaries for scalar {M16 | ADDTT, COPYTP, MKDCEN, SETBUY | 
{expressions and constants | | | 
|----------------------------------- door ooo fr or oo 1 
[Creates temporaries for array | E2 |ADDTT, CHCKB1, COPYTP, MKDCEN, | 
|expressions | | SETBUY l 
~---------------------------------- }---------------}-----------------+------------------{ 
[Creates temporaries for partially  |E3 |ADDTT, CHCKB4, COPYTP, MKDCEN, | 
[subscripted array expressions | | SETEUY | 
}----------------------------------- tr--------------}----------------------------------- 1 
[Creates special temporaries for | EX16 |ADDIT, BS2, CHCKB4, CHECKT, COPYTI, | 
|partially subscripted arrays | | MKDCEN, STKINF, UNSTCK, Z11, | 
| | | SETBUY, SETMT | 
ļ----------------------------------- ł--------------- ł----------------------------------- 1 
[Checks single arguments (except {M4 | CHECKT, M16 | 
|structures) with parameter descrip-| | | 
| cions | | [ 
-----------------------------------ł--------------- ł----------------------------—------ 
|Checks single structure arguments  |M5 | CHECKS, CSTTMP | 
|----------~------------------------}--------------- }----------------------------------- 1 
|Creates temporaries for structure  |M21 |CSTMP2, MKDCEN, CHCKB4, SETMT, | 
{expressions | | ADDTT | 
A ee Te ie A e in a e a 
[Creates temporaries for partially |zZ22 |BS2, ADDTT | 
[subscripted structure | | 
| ----------------------------------- }--------------- Po i 
[Compare the two arguments of the |POLY1, POLY2, | BS2 | 
|POLY function and create |POLY3, POLYB, | | 
|temporaries if the arguments are | POLY5 | | 
[not both floating and do not have | | | 
|the same scale and precision | | | 
SE Äech) 
[Creates special dictionary entries |M37 | None | 
|for generic entry labels used as | | | 
larguments | | | 
AAA Ed EE eee ESAE E RENS dur O cd 4 


170 

















Table GP1. Phase GP Routine/Subroutine Directory 
|Routine/Subroutine| |^ EE Function | 0000000000000 1 
[ADDTT (GR) [Adds text to output block. ^^^ .0 00000000000 
Lr cee input text. | 
m om input text. | 
lè peer argument lists for expressions. | 
| BS10 Ve routine. | 
fer [Tests for constant argument. | 
oaei (GR) SE the bounds of araument and parameter arrays, and creates | 
| jnew dimension tables for temporary arrays. | 
| CHCKB2 (GR) [Compares the bounds of argument and parameter arrays where the ee 
| [ment is partially subscrioted, and creates new dimension tables for | 
| | temporary arrays. | 
re (GR) e a new dimension table from a parameter descripticn. | 
foe (GR) [Creates new dimension tables for partially subscripted array and l 
| [structures. | 
oie ed (GR) TOR the structuring of argument and parameter structures. | 
ida (GR) joco the bounds of argument and parameter arrays. | 
IHEC (GR) eee Structuring and data types of argument and parameter RÈS 
| |tures. | 
| | | 
| CHECKT (GR) |Compares data types of arguments and parameters. | 
le (GR) PA a temporary dictionary entry from a parameter description. | 
Leg (GR) eee a temporary dictionary entry for a partially subscripted | 
| larray from a parameter description. | 
(érisi (GQ) [Create temporary structure dictionary entries. | 
[SCAN (GQ) ee expressions for arrays and structures. | 
siio (GQ) reste temporary arrays for partially subscripted array arguments. | 
ET (GQ) [Creates a chameleon dictionary entry. | 
Ls (GQ) [Creates temporaries for array expressions. | 
Lr (GQ) |Creates temporaries for partially subscripted array expressions. | 
sens (GQ) [Makes dictionary entries. | 
Ta (GQ) ión argument expressions. | 
Lus (GQ) |Examines single arguments with parameter descriptions. | 
Ges (GQ) ee single arguments with parameter descriptions. | 
W (GQ) | elaine structure arguments. | 
Lir (GQ) i sre for structure parameter. | 
Into (GQ) I Processes subscripted variable argument. | 
i i A AAA AAA A a RANA A A n pa ke kk a er J 
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Table GP1. Phase GP Routine/Subroutine Directory (cont'd) 


larray and structure bounds. 


| STKINF [Stacks information on encountering nested functions. 
| | 
| TESTC [Tests for constant argument. 
| | 
| UNSTCK [Unstacks information. 
| | 
Z11 (GR) Generates text to set up the dope vectors of partially subscripted 
D Y p 


larray temporaries. 


|scripted structures to temporaries, and then tc set up the dope 


p^ eer Se aS Ie mem EE EE a minem E a emere n pamm m rmm e em em 1 
| Routine/Subroutine| Function | 
}------------------ Lesen 1 
|M12 (GQ) {Creates a warning message. | 
| | | 
[M13 (GQ) {Gets BUY text. | 
| | | 
[M14 (GQ) {Processes scalar argument. | 
| | | 
[M16 (GQ) {Creates temporaries for scalar expressions and constants. | 
| | | 
[M21 (GQ) |Creates temporaries for structure expressions. | 
| | | 
{M22 (GQ) [Processes data item parameter. | 
| | | 
|M23 (GQ) |Processes label parameter. | 
| | | 
[M24 (GQ) {Creates a structure temporary. | 
| | | 
[M37 (GQ) [Creates dictionary entries for generic entry labels which are argu- | 
| [ments. | 
| | . | 
[M41 (GQ) |Error routine. | 
| | | 
(Minn (GQ) |Processes dimensioned scalar argument. | 
| | 
| POLY1, POLY2, [Check the arguments to the POLY function and generate code to buy | 
|POLY3, POLY4, |temporaries, if the arguments are not both floating and do not have | 
[POLY5 (all in GO) |the same scale and precision. | 
| | 

| SCANFR |Scans for matching parentheses. | 
| | 

| SETBUY (GQ) |Inserts skeletons to buy temporaries in the output text. | 
| | 

| SETMT (GR) [Sets temporary dictionary references in MTF compiler functions for | 
| 

| 

| 

| 

| 

[ 

| 

| 

| 

| 

| 

| 

| 

| 


| 
[222 (GR) |Generates text to assign the structure subscripts of partially suk- 
| 
| 


[vector for the partially subscripted structure temporary. 
AS A c ccc cs LE malam acted clu LM emm qp Mec A Rc 


Table GU. Phase GU Pretranslator Check List 


ES mee tk SO a ET SS EA AE ccce Teque REE 1 
| (Main Processing | | 
[ Statement or Operation Type [ Routine | Subroutines Used | 
}----~------------------------------ j--------------- }------------------~----------------- | 
[Scans statement; checks if preced- |BSCAN [CALL, LIST, MOVE, SUOPC | 
ling SIGNAL statement is needed | | | 
|~~--~------------------------------}+-------------- ł----------------------------------- 1 
[Scans statements; checks if follow-|ASCAN | None | 
ling SIGNAL statement is needed | | | 

mu crc E EE A —————————— A P — PO" 4 
|Provides a SIGNAL CHECK statement  |CALL | GENTST | 
pao nnn nnn nn nn nn nnn nnn nn nn nnn fon nnn nnn panne a ee nn nnn nnn nn nanan 1 
[Searches list for checked items | SUOPC [CALL, LIST | 
"e Soe Slt ee T FUE ee E da A reel E uL cute a Ct a n 
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Table GU1. 


€———Á— HÀ 
|RoutinesSubroutine 


| ABGNDO 


| 
| AFM 


| 
| ASC 


| ASCAN 


| 
| ASCL 


pwe 
pene 
| ATESTU 
Mores 
Vires 
SENCON 


| 
| BPC 


SEEN 
En 
| BTEST3 
lanes 


| 
| BVARNO 


| 
[CALL (GV) 


Geen 
frre 
Ge 
| CALSTM 
| CALSYM 


| GENTST 


(GV) 
(GV) 
(GV) 
(GV) 


(GV) 


| 
[LIST (GV) 


| 
| MOVE 


| 
| SUOPQ (GV) 
L 


a d — nu AAA E E EE ee e e e ren 


se 
| 


Phase GU Routine/Subroutine Directory 


e — — — — e mas — «w au si sa X us ote i Y — a e am e ae m HÀ a e e € a M 4 "M M — se — —— ge ——À — M — — — 


Function 


[Sets IF-switch for THEN or ELSE clause. 
| 


{Signals checked items in argument list. 


|Tests statement identifier and takes action if necessary. 


l 


{Scans statements; checks if following SIGNAL statement is required. 


|Examines statement dictionary entry. 


{Examines statement dictionary entry which is not a label. 


[Housekeeping for end of statement. 


[Tests for argument list. 


[Tests for THEN. 
| 


{Tests for end of statement. 


|Test whether argument list contains checked item. 


Processes "possible check" statement. 
p 


|Scans statement; checks if preceding SIGNAL statement is required. 


|Tests whether SIGNAL statement may be needed after statement output. 


[Tests for end of statement. 


[Tests for argument list. 


[Tests for END statement. 


| 
[Outputs SIGNAL statement for checked item. 


[Tests whether SIGNAL precedes or follows statement responsible. 


|Exit from subroutine CALL. 


[Tests whether DO statement must be output. 


|Re-outputs overwritten statement after DO statement. 


| 
|lOutputs SIGNAL statement. 


[Checks space in output text block. 


[Updates and searches list of currently checked items. 


|Moves text from source to output. 


|Searches list for checked items. 
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Table HF. Phase HF Pretranslator Structure Assignment 


"iuc ci Re c m pic ee min CC D (cs m e T oo e MEC ncc mee E Ee 1 
| |Main Processing | 


| Statement or Operation Type | Routine 


{Scans text for structure assignment |MR 
|Statements, regions of nested | 
|statements, output list expres- 
|sions, and structure references in 
|input lists 


|Expands structure assignments and  |BYNAME, 
|expressions into a set of scalar | STREXP, 
[assignments or expressions corres- | 
|ponding to the base elements of the| 
|structure operands. Where the base| 
|elements are arrays, the corres- 

|ponding component expressions or 
lassignments are surrounded by 
|appropriately iterating DO groups 


[Scans regions of nested statements 
|for structure assignments 


[Scans function argument and sub- | LSTSCN 
Iscript lists | 


+ 
[Constructs DO statements and checks|DVCON 
¡bound equivalence | 


ds ee ee nm anm am 


{Constructs subscript lists for | SBGN 
|references to dimensioned structure | 
[base elements | 
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| Subroutines Used 


| BYNAME, GENTST, LSTSCN, MOVE, 
INSTSCN, STRASS, STREXP, STRURE 


——— — — — — — — mp e — PX — — — — — — — — — — — — ee ee an w mm — — — — 


STRASS, |DVCON, GENTST, LSTSCN, MOVE, 


|NSTSCN, SBGN 


-— ae e — — — — — — — — ee ee — — — — ee — — — — — —— a a oer = 


———Ó — —Ó — — — — — — —À E —À — — E a ae —— en ve we — mm —— — — ep — — ee — 


Table HFi. 


Routine/Subroutine 


— — — — — —— — ave an ——— ene van — — ap vm zc e — scs — — — — — — —= E — —— n ——— mm — E më E — —À— —— — E —— —— vm — mm —— E —— — — —— — — — — — — — — —— —— — — — — — — — — — — — — rn — — — 


HM aoe 
| 


|BYNAME (HG) 


ovid (HG) 
Pe (HG) 
leuis (HG) 
ee (HG) 
léw 
m 
ee 
m 

eer 

fine 


MR 


MRBYN 
MRTRT 
N 


STSCN 


SAEND (HG) 
SAOP (HG) 
SATRT (HG) 
SAX1 (HG) 
SA20 (HG) 
SA32 (HG) 
SA36 (HG) 
SA73 (HG) 
SA79 (HG) 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
l 
l 
l 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| SBGN 
| 

| 

| 

| 

| 

| 

| 


> 
| 


SADRAB (HG) 


STRASS (HG) 
STREXP (HG) 


STRURE (HG) 
Lo o o e e e e e e pe a e mmm L 


Phase HF Routine/Subroutine Directory 


|Expands BYNAME structure assignments. 


[Searches for matching BCDs down to base elements. 


{Returns to start of current output assignment statement. 


| 
|Test for matching BCDs. 


{Constructs DO statements, checks bound equivalence. 


{Determines space in output text klock. 


[Tests for GET statement. 
| 


{Scans subscript arguments and subscript lists. 


[Tests for structure item in data specification. 


[Tests for data-directed data specification. 


|Adds text to output string. 
| 


[Scans text for structure assignment statements, nested statements, 
loutput list expressions, and structure references in input lists. 


| 
[Tests for BY NAME assignment statement. 


|Scans source text for structures. 


{Scans regions of nested statements for structure assignments. 


|Builds up stack to show pattern of structure. 


| 
|Tests whether END statements need to be output. 


|Examines dictionary reference found. 


[Scans structure expression or assignment. 


[Tests whether item matches the stack pattern. 


|Tests for start of structure expression. 


|Outputs base element and replaces it in source text. 


|Tests for BY NAME assignment statement. 


| 
[Outputs END statements. 


|Resets scan pointer to start of expression/assignment. 


|Constructs subscript lists for references to dimensioned structure 


[base elements. 


|Expands structure assignments into DO loops. 


|Expands structure expressions. 


| Expands structure references. 
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Table HK. Pretranslator Array Assignment 


pee eS eee e a aee MN ELIT Hm qo e ey ce quemmeg emendum 1 
| [Main Processing] | 
| Statement or Operation Type | Routine | Subroutines Used 
|----------------------------------- }--------------- —————— { 
[Scans text for array and scalar | MR | None | 
lassignment statements | | | 
~~--------------------------------- ł---------------ł----------------------------------- 
[Scans text for nested array and | MR | NESTAT | 
{scalar assignment statements | | | 
——— $---------------}-----------------------------------{ 
|Scans text for array expressions in|MR [ARRASS, LSTSCN | 
I/O lists in GET and PUT statements | | | 
———— +--------------- }----------------------------------- 1 
|Expands arrays into DO loops and | ARRASS |FRETMP, MDE, OPTST, SLGCH, SUBSKP | 
{scalar assignments; checks dimen- | | | 
[sions and bounds | | | 
A HM A ME eRe ak ee ae Dowie Se ERN SS ee a hh oo ake ee EDEN J 
Table HK1. Phase HK Routine/Subroutine Directory 

Pass A O A A RN TA A EEN 13 
| Routine/Subroutine | Function | 
Soo }--------------------------------------------------------------------| 


JAADOP (HL) 
peo (HL) 
ee (HL) 
poe (HL) 


|ARRASS (HL) 


| 
|ARREXP (HL) 


| 
|ARRIN (HL) 


| 
|ARROUT (HL) 


FRETMP 


LSTSCN 
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[Examines leftmost operand. 


[Tests for multiple assignment. 


|Checks pseudo-variables. 
| 


|Scans array expression. 


Expands arrays into DO loops and scalar assignments; checks dimen- 
sions and bounds. 


Generates DO loops and subscripts for array references. 


Entry point for array expressions in input lists. 


|Generates a SELL statement for temporaries bought in the current 


| statement. 
| 


{Scans I/O lists for possible array expressions. 


[Makes a temporary dictionary entry. 
| 
[Scans text for array and scalar assignment statements, for nested 
larray and scalar assignment statements, and for array expressions in 
|GET and PUT statements. 

| 


{Tests for end of text. 


|Scans text. 


[Scans nested statements. 


|Tests any given operand. | 


{Generates and checks subscript lists. 


|Inserts subscripts in expanded array position. 


|Skips a sukscript or subscript list. 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
Entry point for array expressions in output lists. | 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 




















Table HP. Phase HP Pretranslator iSub Defining 
A nde Neue ia a suere er I E NET PAREN EK CUM ru epu mese RON Ap Se L A EE ee ee 1 
| [Main Processing| | 
| Statement or Operaticn Type | Routine | Subroutines Used | 
pon poo hn 1 
Scans Source text for references |MASCAN | MOVE | 
[defined by iSUB | | | 
}-~---------~----~------------------- dr Po — — 1 
| Processes references defined by | DEFSUB {GENTST, MOVE, SULIST, SUMOVE | 
[iSUB | | | 
fren oo ro —— aM! }-~--------------------------------- 1 
Scans subscripts | SUMOVE | None | 
| | (in SULIST) | | 
ae Sean ee ee a See dict on aS Ls ——— ÁÁ————  —— tan J 
Table HP1. Phase HP Routine/Subroutine Directory 
re bee Go ee C UR Me a Se c OP ag PO PE UC A CM IH Rb A m P A UE ee A Eee 7 
[Routine/Subroutine| Function | 
pa AA e A [---------------2-2-22--2-2-22-22--2-2-2-2-2--2-2-2-2-2-22--2-2-2-22-2-2-22-22-2-2----2-2--2-2--2-2---4 
| DEDONE [Resets pointers to scan first subscript list. | 
| | | 
| DEEND2 [Creates and buys temporary. | 
| | 
| DEFSUB |Processes references defined by iSUB. | 
| | | 
| DEGBD1 [Tests for end of second subscript list. [ 
| | | 
| DENEXT [Outputs first-list subscript and tests for end of list. | 
| | | 
| DENGUB {Tests whether dictionary reference is constant or integer variable. | 
| | | 
| DERCUR |Stacks parameters for recursive entry to DEFSUB. | 
| | | 
| DERETN |Returns to MASCAN or SUSCAN. [ 
| | 
| DETEMO {Tests whether second-list subscript is simple dictionary reference. | 
| | | 
| GENTST {Checks space in output text block. | 
| | | 
| INIT |Initializes text blocks and pointers, gets scratch storage. | 
| | | 
| MASCAN [Scans source text for references defined by iSUB. | 
| | | 
| MOVE |Moves text from source to output. | 
| | | 
| SULIST [Scans subscript lists. | 
| | | 
| SUMOVE {Scans subscripts. | 
| | | 
| SUSCAN [Scans subscript. | 
| | 
| SUSUBS |Regplaces iSUB by corresponding subscript or temporary. | 
[DECUS A A AE An Leos E a dep RU C ae J 
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Chart 05.  rranslator Icgical Phase Flowchart 
sense 
*05 € 
* Ale 
Li 


sn. oteossenes 
SSTACKER ae 


tap e 
e * 
* oe Bd Aha : 
$90646409594249945 
: 
e 
* 
X 
dits 
See 
Ap ch ke y A xt Sc E, AS 
. Ji H e e : PRÉ S c 
Daems wet 
ts “So Senso eine 
* e 
e e 
e . 
. . 
H e 
Méi ger dut 
af ANY #o e Lë 
vd FUNCTION e YES tae 
Ze, REFERENCE MI Së 
"e, By bi eii Si in * LIII] 
he. ot sens Rene D * 
* NO . * 01 « 
sit, : * H 
. è ason 
* 01 #.X. . X 
CTT k p * Ah too EE le aaa 
DI” Ze, snp A7 ` “a, LATE KOK AKO W ‘ 
= mme i 


dorsi dar » "Won a L GH KL bi TIE 


WI heel EE 


Pòl mer 


ESAME 3 


ARAN 
LLLI k 
ebef bebé 
SCONSTAN DS 
P Hu 3 
AS 
d 
Beene 
6 * 
M 


i78 
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Chart IS. Phase IG Cverall Lcgic Diagram 
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Chart IT. Fhase IT. Overall Logic Diagram 
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eTable IA. Phase IA Translator Stacker 














EE E EE AR RIA (EE 1 
| |Main Processing] | 
| Statement or Operation Type | Routine | Subroutines Used | 
}-------~---------------------------}--------------- ł----------------------------------- 1 
|Scans source text | ESCAN | None | 
xu A la IS aa ye A E eer ae RET 
| |Compares transfer vector | EACTNC |ECOO to EC10 | 
RES Se a EN dee EE EE 1 
| |Stacks transfer vector | EACTNS |ESOC to ES2E | 
}----------------------------------- }---------------}-~-~-------------------------------- 1 
Generates triples | EGENR | EGENR2, EGENR3, ENEWBL, ENOREP, | 
| | |EREPL, ETRBMP | 
rcc —— —— € dear Earn aaa See ——————H J 
eTable IAi. Phase IA Routine/Subroutine Directory 
SE ee E qose mmm A ie eo m are ee Pme te mme e eg 1 
Routine/Subroutine | Function | 
}------------------ LEE 1 
| EACTNC {Compares transfer vector. 
| 
|EACTNS {Stacks transfer vector. 
| |ECOO to EC10 |Provide comparison action for each operator. 
| 
| EGENR |Generates triples. 
| 
EGENR2 [Generates triple for top stack operator, with blank first operand, 
|then deletes the operator from the stack. 
| 
EGENR3 [Generates triple with two blank operands. 
| 
ENEWBL |Obtains and chains new text block for output, resets output pointer. 
| 
ENOREP [Deletes top stack operator, flags new top operand as the result of 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| tik triple just generated. 

| EREPL |Replaces top stack operator by its prime, to indicate end of a list 
| lof function arguments or subscripts. 

| 

| 

| 

| 

| 

| 

| 

| 

| 

l 


ALL —— — — — —o= — —— — — a— a ee mm que a a sanw siman ae ase ee am a— sew aa — — 


ESCAN |Scans source text. 
ESTCAC TN. Operand in stack. 
| [ESOO to ES2E andie stacking of operators. 
ETRBMP Wee output point over one triple if end of text block is 
J round 
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Chart IX. Phase IX Overall Logic Diagram 
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Table IG. Phase IG Translatcr Pre-Generic 


guru edi qu A icd alia ad c S quom rmm EECHER 1 
[Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
-~------------------- Po EE 
[Scans text for BUY aggregate argu- |GS1 |FR, BR, TRF1, GS12 | 
[ment dummies, end-of-block, and | | | 
|end-of-program triples | | | 
€————————— door rar pr roro 
{Obtains next text block |GS12 | None | 
~=--~~-----------------------------}--------------- }-----------------------------------4 
[Transfers text to output block | TRF1 | None | 
| -----------------------------------}---------------}----------------------------------- 1 
|Transfers text skeletons to output |TRF2 [GS1, TRFI | 
(d }~----------------------------------| 
[Stacks and unstacks information on |FR, FRP | None | 
Jencountering function and function | | | 
| triples | | | 
}-----------------------------------}--------------- }~-------------------~-------------- 1 
{Inserts assignment statement for | BR [GSi, TRF2 ` | 
laggregate argument dummies | | | 
Ee a aie DEM TERME VIDI NUT IE SUPCR NND o tate 4 
Table IG1. Phase IG Routine/Subroutine Directory 
(desine odo tc ee p e quee ee su IM ee ee Oe ee iere ege E e 1 
|Routine/Subroutine| Function | 
|------------------ }-------------------------------------------------------------------- 1 
| BR [Inserts assignment statements for aggregate argument dummies. | 
| | | 
| BR1 [Transfers point for IGNORE triple. | 
| | | 
| BR2 |Inserts assignment into text. | 
| | | 
| BR3 |Makes new dictionary entry for temporaries. | 
| | | 
| BR4 {Processes second BUY. | 
| l | 
|FR, FRP [Stack and unstack information on encountering function and function'| 
| | triples. | 
| | | 
[GS1 |Scans text for BUY aggregate argument dummies, end-of-block, end-of-| 
| |prograr triples. | 
| | | 
[6812 [Chains to next text block on encountering an end of block marker. | 
| | | 
| TRF1 [Transfers text to the output block. | 
| | | 
| TRF2 | Transfers text skeletons to the output block. | 
MERE I ts rod HM D Hc dem NI E ele that E A J 
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Table IL. Phase IL Translator Pre-Generic 


Wi ey at EE M UC cC A AN H E W mt WE "cac. pe ye Ne TP LIS IU ese! AS n 1 


Main Processina] 


| Statement or Operaticn Type | Routine | Subroutines Useá | 
—----------------------=-----------ł-------=------- ł-----------------------------------] 
{Moves function table to scratch | BASROU [None | 
| storage. | | | 
A eee ea E O dc C uere eae dll. cec EE 4 

Table IM. Phase IM Translator Generic 

(A RE A ANE D E LL Ko ka Si GLÈ SÈN ACD E eg E AA Ma O es eps EE E EE 1 


{Main Processing| 


| Statement or Operation Type | Routine | Subroutines Used | 
——— —— Á ——— M— P ———— !————— a —Ó—— ——— —— t € Fe e —Á PE URS | 
[Selects function for processing | GNFUNC | GNXTRP | 
————  —— E A E ar ie hk E toS 4 
|Selects generic procedure |GNPLIG |GNDRTA, GNXTRP, GNFMID | 
sa tac a A EREMO { 
[Selects generic Library routines;  |GNBIFH [GNARID, GNCBEF, GNCACI, GNCTBI, | 
[determines function result | | GNGNCR, GNPRSC, GNSACH, GNSAPC, | 
| | |GNSBAR, EXPANL, GNSAPR, GNSBRT, | 
| | | GNSFMS | 
}-----------------------------------}-~-------------}----------------------------------- 1 
[Selects chameleon dummy and inserts |GNCHAM | GNXTRP, EXPANL | 
Jit in relevant dictionary entry | | | 
}-----------------------------------}---------------}----------------------------------- 1 
[Controls scan of text -- branches |EXPANL |ARITH, LST1, SUBSPT, ASSIGN | 
|to processing routine | | | 
pra M I TR UEM SCORES E Lo tose estes pc EOM J 
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eTable IMl. 


Phase IM Routine/Subroutine Directory 


|Routine/Subroutine| — IN 1 
[ARITH (IN) |Calculates type of result of arithmetic operation (except **). | 
lesen (IN) EE to calling phase with result. | 
cone (IN) Mura scan of text -- branches to processing routine. | 
KEE (IP) |Identifies argument of built-in function and converts it to valid | 
| |type, if possible. | 
oe (IP) |Selects generic Library routine; determines function result. | 
ore (IP) sas relevant family member. | 
RO (IP) yes up result type of a built-in function. | 
CREE ¡ed and converts a decimal integer. | 
mme [Standardizes argument code byte to a form for generic selection. | 
one {Selects chameleon dummy and inserts it in relevant dictionary SC 
leven ie from decimal to binary. | 
REN A dictionary type. | 
E eege end-of-block marker. | 
leues Lord end-of-program marker. | 
eae (IQ) {Identifies family member. | 
Kee TIENE function for processing. | 
Gë |Checks for nested function situation. : 
TREES im ts up result type of a PL/I functicn. | 
ere (IQ) ane Original reference in text. | 
Game (IQ) le Forms entry relating to particular invocation. | 
joue rési conversion routine. | 
lone (IQ) Fou rms tacle of family member descriptions. | 
Lc ERG (IP) fees highest mode, scale and precision of variakle argument E 
Ve oe special argument check. | 
eee eee scale and precision of a function result. | 
FE (IP) ee second and third arguments of the SUBSTR built-in function | 
| Jor pseudo-variable and, if possible, converts them to binary | 
NRI: E mu uu Uu i I LL 
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eTable IMl. 


a 
| 
| 


eT 


Phase IM Routine/Subroutine Directory (continued) 


EE Sag NS a EE RE A NÒ RANS AS RAS So da RE EN 
Routine/Subroutine | Functicn | 
——  — HP ———ÁÁÁ—À————— —— — m— — P —ÉL— HM ——— ——X 1 
GNSBAR |Handles a subscripted argument. | 
| l | 
GNSBRT (IP) |Examines all three arguments of SUBSTK and calculates the resulting | 
{type exactly. | 
l | 
GNSFMS (IP) |Replaces references to SUBSTR in text by a reference tc another | 
[entry giving detailed information about the arguments. Places a | 
[description of the resulting string in the text. | 
| | 
GNTRID {Scans source text. l 
| | 
GNXTRP [Gets next triple. { 
| | 
LST1 (IN) {Calculates type and length of result of string operation. | 
| | 
SUBSPT (IN) lAdds type of array to stack. | 
ri seas E er d uu i eM Eu e LU SM ote 
able IT. Phase IT Post-Generic Processor 


Wee Sica S hs EC DO C EDI e EE EE SE po KK M ERE quer TAL uA ae C DIEI UE V MALE Cu SUD 1 


Statement or Operation Type 


|Analyzes type of function detected 


[Main Processing| 


| 


Routine 


PGFUNC 


| Subroutines Used 


— — ee eu an vn — E — mm M A — we vm X Tu oe — ^ me ave XX ann vn mm pm men — mn — — 


— ze aa —À ata — rm E —— — enn —— nen E X e A awa we aa mm ann ee wm mm — —= mm 


Detects 'chameleon' 


temporary ref- 


lerences and deletes BUY and BUYS 
|triples where possible 


t 
| 


[intermediate result 


Deletes 'chameleon' 


PGBUYS 


reference in an|PGPASS 
lassignment triple and alters the 
largument triple to indicate an 


{Deletes all other references to 
'chameleon' temporaries where 


| 
L 


applicable 


Sea === 232 222 Á Ek —€—— A o— — L 
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Table IT1. 


A 
|Routine/Subroutine 


— — — — —Ó — a oo ca on ev AM «= — ape GE A A GuS — ED mn ee Wan out «a "M Au -— ae: o rl! 


5 
| 


Phase IT Routine/Subroutine Directory 


Function 


TOS SS 1 


— toti een: —— — € — a — — — — — e SE —— ED ——  —— —— — — dtan ven — m —— 


|PGASS |Deletes 'chameleon' assignments. 

| PGBYAS seis "Buy Assignment' triples. 

senos esse BUY triples. 

mem TOREM BUYS triples. 

GEOR ee with End of Text Block conditions. 

fo eem end of program marker. 

| PGFNCM Reid 'chameleon' reference by an intermediate result where 

| lapplicable. 

e Ee function prime marker. 

Vë nnb ao function, and determines the type of processing required. 
rere ce the next triple in source text. 

poor Keser SELL triple. 

ene Sens text. 

poro [Determines action to be taken for a significant triple. l 


e Table IX. 


Phase IX Pointer and Area Checking 


{Main Processing | 


| Statement or Operation Type | Routine d Subroutines Used | 
[ain scan routine MM l BUMP l TEST,ERASER | | 
Table IX1. Phase IX Routine/Subroutine Directory = 00000000 
|Routine/Subroutine| ^^ Function ^00 | 
ur A 
NEST pore operands for pointer and area data types | 
[ERASER [Processes bad statements. | 
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el.ible JD. Phase JD Constant Expression Evaluator 


(RUE ipe peru Eu EE TS aM SE n Se AR E MES D Ee D M EC 1 
| [Main Processing] | 
| Statement of Operation Type | Routine | Subroutines Used | 
A A A CM EE 
|Initializes phase, gets scratch |INIT1 | None | 
|etc. | | | 
————  Ó— }--------~------}------------------ ----------------- 1 
|Scans text, for constant triples | SCANT | MORTXT, PREFIX, CCNCAT | 
|------------------------~---------- d--------------- ł----------------------------------- 1 
|Handles stacking/unstacking of | STAKOP | UNSTAK | 
| operands | | | 
rue c E ew A A ESP lees AA GUNT E er T T NO M J 
e Table JDl. Phase JD Routine/Subroutine Directory 
poem E eU M M ME Pe e A ciem mee epe seque m He; 1 
| Routine/Subroutine | Functicn | 
}------------------ — —— A — — HÀ —— rÓ——— ÀÀ 1 
| CONCAT |Detects constant string operands, performs concatenation, makes new | 
| [disk entry, and puts ref. ina slot for stacking. | 
| | | 
| INIT1 [Gets scratch core for the stack, initializes slots and switches. | 
| | | 
| MORTXT [Gets next text block, resets pointer. | 
| | | 
|OUT [Puts out error message and aborts compilation if stack is not emp- | 
| | tied. | 
| | | | 
| PREFIX |Detects unary prefixed constant, makes new list entry and puts ref. | 
| jin a slot, for stacking. | 
| | | 
| SCANT |Main scan routine. | 
| | | 
| STAKOP [Push down stack handler. | 
| | | 
| TRYFLAG |Tests if stack is full, and if so, akorts. | 
| | | 
| UNSTAK |Moves entry from the stack. | 
| | | 
| UPTXT {Updates text pointer. | 
| | | 
| WINDUP [Releases scratch core and returns control to the control phase. | 
bees eae tS ae Se NEE MAC AP gaa a SPR, MISERE URN a Jel oe eh pel a n CERRO EUN a NE J 
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Chart 06. Aggregates Logical Phase Flowchart 
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Chart JI. Phase JI Overall “sogic Diagram 
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Chart JK. Phase JK Overall Lcgic Diagram 
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Chart JP. Phase JP Overall Lcgic Diagram 
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eTable JI. Phase JI Aggregates Structure Processor 


[ize UR ODER noe UA Hel oe tara tae A TM E oem a erum E nu ET Ld Ud X y iS eg 3 mx qr e la mh A ad is kas arg a 1 


| |Main Processing] 
| Statement or Operation Type | Routine | Subroutines Used 


+ + 
|To re-order the STATIC AUTOMATIC | SCANA | MAP,MAPA 
land CONTROLLED chains and to proc- | | 
Jess structures | | 








}------------~----------------------}--------------- }-----------------------------------. 
|To scan down the COBOL chain for [SCAN | MAP | 
[COBOL-mapped structures | | | 
}-----------------------------------}--------------- ł----------------------------------- | 
[To transfer items from the COBOL | RECHAN | None | 
[chain to the appropriate AUTOMATIC | | | 
| chain | | | 
a se ——— —— ——H——  — ———— ce j--]-].----------—---------------------| 
|To transfer control from IEMSI to  |TERMIN | None l 
| IEMJM | | | 
p----------------------------------- ț---------------ł--------------------- -MM | 
[TO map COBOL structures | MAP | NXTRF1,NXTRF2 | 
Fo EE ł-----------------------------------] 
|To check non-COBOL structures for  |MAPA | None | 
[constant length | | | 
ek a ll a (——M————————— ie ic 4-2-----------2-2-2-2-2-22-2-2222-22-2-2----2---2-4 
[To find the next member of a struc-|NXTRFI | None | 
| ture | | | 
| -----------------------------------}--------------- Y -=== | 
[To find the next element of a | NXTRF2 [None | 
cds Add | | | 
muni aS ee utes Pu ILE c e ee bcc E Se a ANA Lei c eed 
e Table JI1. Routine/Subroutine Directory 
"C ——— ——— ———M——— ——— HM— 
| Routlnezgubroutinel Function 
p------------------ Po O | 
| MAP |To map COBOL structures | 
| | 
| MAPA |To check non-COBOL structures for constant length | 
| | 
| NXTRF1 |To find the next member of a structure | 
| | | 
| NXTRF 2 |To find the next element of a structure | 
| | 
| RECHAN |To transfer items from the COBOL chain to the appropriate AUTOMATIC | 
| | chain 
| | | 
| SCAN [TO scan down the COBOL chain for COBCL-mapped structures | 
| | 
| SCANA [To reorder the STATIC, AUTOMATIC, and CONTROLLED chains and process | 
| {structures | 
| | | 
| TERMIN ES transfer control from IEMJI to IEMJM 
AAA AS AA O E II PE TUR ERO A E 4 
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eTable JK. Phase JK Aggregates Structure Processor 


ERA eee O ee ee AS a ee ee eee a 
| {Main Processing] 

| Statement or Operation Type | Routine | Subroutines Used 
}-------~---------------------------- }~-------------- }~------------------------------- 
{Scans AUTOMATIC, STATIC, and | CHNSCN | ADRDV, CHKDEF, MKDVD, MKRDV, 
[CONTROLLED chains l |PROCDT, PROCST, SETBRF, TERMWS 
—————————————————— ER E O FE a AA EN a AE A PE A A a a oo 
|Processes DEFINED items |CHKDEF |CMPIL1, INOBJ, PROCDT, PROCST, 

| | | STEASE 

|Processes structures (calculates | PROCST CMPIL1, INOBJ, ELSIZ 


loffsets, multipliers, sizes, align-| 
|ments and padding; generates object] 

| code) | 
|Processes arrays (calculates mul-  |PROCDT CMPIL1, INOBJ, LOADCN, SP54 
|tipliers and generates object code | 


| 
| 
| 
| 
== eumd suot tia eases saa i See a apart melee eine 
| 


—— — — —À — —À ce —À a — — ae aa mp wan eee eu ens am an au ee ane — — ee ee oue ans e mmm ee mp awa ee m e w —— — — — A mm nn vm A A am o — MÀ es a —9 MM M mm — — — —— — — — mm 


[Calculates storage offsets for | P925 | CMPIL1 
[adjustable items in structures | | 


—— e — — —À —À —À —À —À —À —À — TI — E —— —— —— ane ee m e a a M — mm — Á— ee wr a mm zb me rem kw cna rm a a a ge — — — — uÓ 


[Calculates storage offsets for | ALVACA |CMPIL1 
[adjustable arrays | | 


t 
{Calculates storage offsets for | ALVACI | CMPIL1 
[adjustable strings | | 


— es — — Ll ee ee mm wm re ene ee — -— A ee ee aw — ane we —— ee ma sem eee — — e a — —À —— — — — — 


{Generates code to initialize string|SVARY {CMPIL1, INOBJ, IPDV, VORJC 
|dope vectors for arrays of varying | | 
[Strings in structures | | 


|Generates code to initialize string|VOBJC 
[dope vectors for varying, non- | 
| structured arrays | 


|Generates code to calculate the 
[starting address of storage for 
Joverlay defined items 

|Adds text skeletons to the output 
[stream 


|Makes dictionary entries for dope 
[vector descriptions 


|Makes dictionary entries fcr record|MKRDV |MKCNST, CMPIL1 


|Generates code to set the address 
jin a record description vector at 
jobject time 
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eTable JK1. Phase JK Routine/Subroutine Directory 
Sern m punica pi es quem io Med Mu a UE Kan tene 1 
| | 








Routine/Subroutine Function | 
|ADRDV (IL) [Generates addressing code for AUTOMATIC RDWS. = | 
JALVACA (JL) ee Storage offsets for adjustable arrays. | 
|ALVACI (JL) {Calculates storage offsets for adjustable strings. | 
ms m offsets for BASED variables. | 
Tuer (JM) | INE DEFINED items. | 
lepin (JL) FETE text skeletons to the output stream. | 
mon RE size of storage required for structure base elements. | 
|INOBJ (JL) Kee object code statements. | 
|IPDV (JM) TON code to set up primary dope vectors. | 
|LOADCN (JL) Leger object code to load object registers with constants known | 
| lat compile time. | 
Coe ass dictionary entries for DVDs. | 
|MKRDV (JM) [Makes dictionary entries for RDVs. | 
| NXTREF/NXTRF1 (din eee next structure base reference. | 
| PROCDT (JM) DE arrays. | 
| PROCST Ge Structures. | 
|PS25 m ES Storage offsets for adjustable items in structures. 
eases (JL) oe AUTOMATIC, STATIC, and CONTROLLED chains. 

|SETBRF (JL) |Sets the reference to the current entry type 1. 

| SETDVS MR the dynamic dope vector size for non-adjustable structures. 
E |Calculates base element multiples. 

{STBASE (JM) ege code to initialize starting address storage for overlay 


| [defined items. 


SVARY (JL) [Generates code to initialize string dope vectors for arrays of 
|varying strings in structures. 


| 
| 
| 
| | 

TERMWS (JL) Terminates object code. 
J 
| 
| 


La — PP — MÀ a m M A ante — si an — E — tèm 


VOBJC (JL) |Generates code to initialize string dope vectors for varying, non- 
[structured arrays. 
A er UM NUM Geet A ee ae ee i See EE e ice E ELE. 
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Tabie JP. Phase JP Translator Defined Check 


pre EE Cms querendum mend mS qose uem eee eue decem e E SA 1 

|Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
EE }---------------}-----------------------------------| 
[Scans DEFINED chain; checks |TEMJP |GETCLS, GETLTH, STRCMP | 
| validity | | | 
5"——— e n Lee 
|Checks that two structure descrip- |STRCMP | None | 
|tions are the same and that they | | | 
[may be VALTAIY overlaid | | | 
AS A ee E S TNT nc ee pce PAY A St A a ee 4 


Table JP1. Phase JP Routine/Subroutine Directory 


[Routine/subroutine| Function | 
A AS A O en eae A A IIA 4 
|GETCLS |Analvzes structure descriptions, and checks that all elements are of| 
| |the same defining class. | 
| | | 
|GETLTH [Obtains length of string or numeric field from associated dictionary | 
| Jentry. | 
| | 
|TEMJP |Controlling scan of DEFINED chain; checks validity. | 
| | | 
| JP8 [Tests whether defined item is packed. | 
| | | 
| JP20 [Tests whether base defined item is adjustable. | 
| | | 
|JP200 |Tests whether item is a structure. | 
| | | 
| JP540 |Tests whether defined item is coded arithmetic. | 
| | | 
|JP541 {Compares base and defined item. | 
| | | 
|JP542 |Tests whether defined item is dimensioned. | 
| | 
|JPS543 |Tests whether base code is arithmetic. [ 
| | | 
| STRCMP |Compares structure descriptions. | 
 -— ——Á—MaOÜÓ A jT c ——— T XÓ—— ——— € ÀÁ(—— PG LPS PREISE ine J 
Table JZ. Module JZ Compiler Control 
mmc mI M E C AU MCCC CM M C MC CE OA Ie cec eum qwe Do Da RA ÈS 1 
| [Main Processing | | 
| Function | Routine | Routines Used | 
}----------------------------------- }--------------- }----------------------------------- 1 
|Reconstructs the phase directory | IEMJZ |RLSCTL, ZUPL, ZEND | 
|for the second half of the compiler| | | 
| | | | 
| Ent ry to 0S/360: BLDL | | | 
SAA AAA Leioa ate a ad 
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Chart LB. Phase LB Overall Logic Diagram 
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Chart LD. Phase LD Cverall Logic Diagram 
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Chart OM. Phase OM Overall Logic Diagram 
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Chart OP. Phase CP Overall Lcgic Diagram 
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Chart OS. 


Phase OS Cverall Lcgic Diagram 
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eTable LA. Phase LA Pseudo-Code Scan 


A sarees 
| 

| Statement or Operation Type 
|SCINIT Initialization 

{scl Search for triple of inter- 
| est 

| 3c2 Move current triple then 

| search 

|5C3 Delete current triple then 
| search 

| 5C4 Skip current triple - text 
| wanted 

| 5c5 Skip current triple - text 
| free 

| 5C6 Move current triple - text 
| wanted 

| 85C7 Move current triple - text 
| free 

| SC1LO Symbolic input pointer to 

| absolute 

|sc11 Skip pseudo-code - text 

| wanted 

|sc12 Skip pseudo-code - text 

| free 

| MV2 Move user pseudo-code to 

| contiguous OP 

| MV3 Move user pseudo-code to OP 


| DV1 Generate dope vector for 
| based aggregate 


Woe pete cmm pU LASA SR AA A 1 
[Main Processing | | 
| Routine | Subroutines Used | 
+--------------- }-----------------~----------------- 1 
|LAOOO5 [UTO1,UTO2 | 
d--------------- $----------------------------------- 1 
|LA0010 [UTO1,UT03,UTO6,UTO7,UTO8 [ 
| | | 
}$--------------- }~---------------------~------------ 1 
|LAOO11 |[UTO1,UTO3,UTO6,UTO7,UTO8 | 
| | | 
+--------------- }----------------------------------- { 
{LA0012 | UTO1, UTO3, UTO6, UTO7, UT08 | 
| | | 
+--------------- }----------------------------------- 1 
| LA0020 | UTO6 | 
| | | 
}--------------- Pe 1 
|[LA0021 | UTO6 | 
| | | 
ł--------------- ł----------------------------------- 1 
|LA0025 | UTO3,UT06 | 
| | | 
+~-------------- ł----------------------------------- 1 
[LA0026 | UTO3, UT06 | 
| | | 
d--------------- }----------------------------------- 1 
[LA0035 [UTO1 | 
| | | 
}--------------- }~---~------------------------------ 1 
|LAOO4O ¡UTO6 | 
| | | 
4~-------------- }----------------------------------- { 
|[LA0041 | UTO6 | 
l | | 
E--------------- ł--------------------------—-------- { 
[LA0O50 | UTO4 | 
| | | 
$--------------- }~---------------------------------- 1 
|LA0055 | UTO4 | 
+--------------- }-------~--------------------------- 1 
[5A0056 | UTO3 | 
$--------------- }--~---~---------------------------- 1 
|LA0070 [UTO7,UT10,UT11 | 
| | | 
Aone n te T E kaa n ae n ot ee ae J 
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eTable LA1. 


a 
| 


Phase LA Routine/Subroutine Directory 


Routine/Subroutine | Function 


po EE i 


|MV2 |Move user pseudo-code to contiguous output text. 

livè TS user pseudo-code to output. 

| MV3A e user triples to output. 

ou DERE input and output text blocks. 

sei fie for triple of interest to user as indicated by TRT table. 
(sò lusus current triple to output then search for triple of interest to 
| | user. 

ae ease current triple then search for triple of interest to user. 
cor EM over current triple and mask input WANTED. 

dcs lavis over current triple and mark input FREE. 

E ‘eee current triple to output and mark input WANTED. 

E ovs current triple tc output and mark input FREE. 

da IU input pseudo-code to output and mark input WANTED. 

mm sve input pseudo-code to output and mark input FREE. 

lèt i uiae symbolic input pointer to absolute. 

Sci Ger over input pseudo-code and mark input WANTED. 

eae de over input pseudo-code and mark input FREE. 

eg eee a new input text block. 

fone TN a new output text block. 

nOn nie pseudo-code to output. 

aoe em triples to output. 

iuris GE text to output. 

jugos faut for end of block and chain to next block if necessary. 

fo DEREN dictionary reference to absolute. 

Ge Kee input pseudo-code to output. 

Dm T adjustable pound values in a dope vector. 

en) [convert output text references to absolute. 
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[Generate dope vector for based aggregate. 


Table LB. 


Phase LB Pseudo-Code Initial 


GR XI c E C Cc xri d LER C n ccc er WR ure ee E To Y CA fer aay Oy TU UNS PW xar LOIR EE EE RERO 1 


|Main Processing | 


| Statement or Operation Type | Routine | Subroutines Used | 
Sa In A ss as ge ee MO ae tnt PC ae tae ites as ia eee 1 
[Scans text for PROCEDURE, BEGIN, [SCAN [SCINIT, SOL, SC3, SCS: tall in LA), | 
land ALLOCATE triples | | SFSCAN, ENDRTN, MAIN, SCAUTO, | 
| | | AUTO1 2 | 
E — — ——— fo nnn nnn —————————— { 
| Scans toma tie chain | SCAUTO [MAIN | 
Leben 1 
| Processes INITIAL attribute dic- | MAIN {CNSTWK, ARRENT | 
[tionary items | | | 
| -----------------------------------}--------------- ł----------------------------------- { 
[Processes IDV statements j AUTO12 | ARRENT | 
A ———— Pos e e oi 
[Processes INITIAL arrays | ARRENT | CNSTWK | 
———— ——ÀM—— a — —PÀ dn cu educ di E a | TR PUN J 

Table LB1. Phase LB Routine/Subroutine Directory 
ct ah ki A AI A SAN ls EE lid ts ap ENE AA a AR 1 
| Routine/S ubroutine| Function | 
KEE Seege 4 
| ARRENT (LC) [Generates triples and pseudo-code for arrays declared with INITIAL. | 
| | | 
| AUTO12 |Processes IDV (initial dope vector) statements. | 
| | \ l 
| CNSTWK [Creates initialization triples. | 
| | | 
| ENDRTN ¡Releases phase and scratch storage. | 
| | | 
| MAIN [Processes INITIAL attribute dictionary items. | 
| | | 
| sc [Scans text for PROCEDURE, BEGIN, and ALLOCATE triples. | 
| | | 
| SCAUTO |Scans AUTOMATIC chain. | 
| | 
Gees |Scans through second file statements. | 
DESERT aaa te A RN eI A A E A LIC mc o acu 
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Table LD. Phase LD Pseudo-Code Initial 

RR ee pum EE ene NIHU 
| |Main Processina| 

| Statement or Operation Type | Routine | Subroutines Used 
TENE ERR SOM TU: pM ES A eee 
[Scans the STATIC chain for any | STATIC {ENDRTN, ARRENT, CNSTWK, 


variable with the INITIAL attribute 


| | | 
PE IN A A a ee AA Eege 


Table LD1. Phase LD Routine/Subroutine Directory 

|Routine/Subroutine| ^^ 00000000000 Function 
[ARRENT OO ioi didi Galue atving forces, — 7 a 
Ee adie constant entries for initial values. 

| NER congue decimal integer constants used as replication factors to 
| |fixed binary. 

E eebe the phase and scratch storage. 

DEM S array initial value string. 

lèse Misie slot for converted constant for arrays. 

UNS IN the equivalent length in bits or bytes of a 

| [variable or adjustable length strings. 

lont idein the STATIC chain. 

fore pao elements of structures. 

E ee initial value list. 

oe ee initial value entry. 

1553953 kél slot for converted constant for scalars. 


LOVNAS, STRADD 


constant for 
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Table LG. Phase LG Pseudo-Code DO za 


[7—7----------------------2--------7-994-777-77077-——- O ni O 1 
| [Main Processing | | 
| Statement or Operation Type | Routine | Subroutines Used 
|Scans text |[LGOOO2 |SC1 (LA) | 
TE EN ee ee ee ee ef ee ne fo ee ee ee 4 
|For iterative DO triples, pushes |LG0011 | PSHDWN, SC5 (LA), CVSCAN | 
[down stack and examines control | | | 
| variable | | | 
----------------------------------- Pon ł----------------=----------—-------- ! 
|Pushes down DO stack ieee | PSHDWN l 
(mwn iterative DO' and po! triples, |LGOO12 | EXPEVL, POPUP | 
[pushes up stack and removes top | | | 
| entry | | | 
En "d 
|For CV triples, reverts to normal  |LG0015 | EXPEVL | 
| scan | | | 
ARS EE PS O ARO a bk 4 
|For TO and TO' triples, examines [160017 | EXPEVL, TESTOP | 
[argument and assigns to temporary, | | | 
|if necessary | | | 
—— e — '— n =- }---------------}-----------------------------------{ 
|For BY and BY‘ triples, examines {LG0019 | EXPEVL, TESTOP | 
|expression and determines signs of | | | 
|constants; assigns variables to | | | 
| temporary | | | 
Pp oo on d----------------------------------- 1 
|For WHILE and WHILE' triples, marks|LG0021 | CODE3 | 
|loop as iterative; generates test | | | 
| triples | | { 
———M— — }---------------}-----------------------------------4 
[DO EQUALS triples, assigns expres- |LG0024 |CODE2, TESTOP | 
|sion as a temporary; generates code] | | 
|to control loop if end of specifi- | | | 
[cation | | | 
~-------------~~------------------- door a ---------------------=-------------4 
|Sets up control variable text in DO|CVSCAN |CVCOPY, PSTYPO, PSTYPI | 
| stack | | | 
|----------------------------------- +----------- }----------------------------------- 1 
|Generates loop control code | CODE2 [CVCODE, DICENT, COMPAR, SWITCHP, | 
| | |LMV3AU, LMV3A5, PSTYPO, PSTYP1 | 
p----------------------2.------------ Jo e o o e A A 
|Tests expression result type and | TESTOP |DICCHN, LMV3A5 
[assigns to temorary if not constant] | | 
}-~--------~-~----------------------- ł---------------ł----------------------------------- 
|Moves text from DO stack to output |CVCODE js 
ecc KC A e dcum eI cm E Á———— eee 4 
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Table LG1. Phase LG Routine/Subroutine Directory 
EET A TENGO cA TRIES A ACH an nS IN 1 
| Routine/SubroGtinel Function | 
a Sees —— PO E 
| CODE2 |Generates loop control code. | 
| | 
| CODE3 |Generates loop control code for WHILE. | 
| | 
| COMPAR [Generates triples to test upper limit control expression. | 
| | 
[CVCODE |Moves text from DO stack to output. | 
| | | 
| CVCOPY [Moves input text to DO stack. | 
| | | 
| CVSCAN {Sets up control variable text in DO klock. | 
| | | 
| DICCHN [Chains dictionary entries. | 
| | 
| DICENT |Makes a dictionary entry. | 
| | 
| EXPEVL (LH) |Analyzes expression to determine result type. | 
| | | 
| LGO000 |Initializes phase. | 
| | | 
|LGOOO2 [Scans text. | 
| | | 
[LGOO1O [When EOP triple encountered, releases scratch storage and passes | 
| ¡control to next phase. | 
| | | 
|LGOO11 |For iterative DO triples pushes down stack and examines control | 
| | variables. l 
| | | 
|LGOO12 {For iterative DO" and DO" triples pushes up stack and removes top | 
| jentry. | 
| | | 
[560013 |Pushes down DO stack. | 
| | | 
[LGOO15 |For CV triples reverts to normal scan. | 
| | | 
|LGOO17 |For TO and TO' triples, examines argument and assigns to temporary | 
| lif necessary. | 
| | | 
| 160019 |For BY and BY" triples, examines expression and determines sign of | 
| |constants. Assigns variables to temporary. | 
| | | 
(160021 |For WHILE and WHILE' triples, marks loop as iterative and generates | 
| |text triples. | 
| | 
|LGOO22 [When WHILE" triple encountered, tranches to generate comparison | 
| | triples. | 
| | | 
[LG0024 |For DO EQUALS triples, assigns expression to a temporary: generates | 
| [code to control loop if at the end of specification. | 
| | | 
| LMV3AU |Moves triples to output. | 
| | | 
| LMV3A5 |Moves one triple to output. l 
| | | 
| POPUP |Removes item from DO stack. | 
| | | 
| PSHDWN |Pushes down DO stack and initializes new stack entry. | 
| | 
| PSTYPO/PSTYP1 |Test pseudo-variable argument type. | 
| | | 
| SWITCHP [Changes DO stack text markers. | 
| | | 
| TESTOP [Tests expression result type and assigns to temporary if not con- | 
| |stant. | 
PAPA AA AS Ls Tr EE cca TEM a a a A a a es bk ka a OE A 


Table LS. Phase LS Pseudo-Code Expression Evaluation 

(ao er A c eU TE ee age a ct SS 
|Main Processing 

| Statement or Operation Type | Routine 

|Scans text and branches to | LBO 

{processing routines; marks phase LW] 

land releases control to next phase | 

|Calculates result type and 

[generates pseudo-code for *, 

|/, prefix +, prefix -, compare 

|operators, and ADD, MULTIPLY, 

|DIVIDE functions 


D 


and 


t 
|Calculates 
|operators 
|Inserts symbolic register in sub- 
[script triple and stacks result 


| SUBSPT 


{Inserts workspace description in 
|TMPD triples after function, and 
|stacks result. Stacks arguments 
|for ADD, MULTIPLY, and DIVIDE func- 
|tions. Adds pseudo-variable mark- 
|ers to stack 

jCalculates results types and 
|generates pseudo-code for ** opera- 
jtor. Generates calling sequences 
|to library subroutines for complex 
[arithmetic 

|Calculates target type and |CONVT 
|generates assignment triple for | 
jconversion; sets dictionary entries | 

{for constants | 
|Interchanges operands; optionally 
|loads first operand 


pp 


[Obtains free floating or fixed 
|arithmetic register; stores it, 
[necessary 


[Adds items to, and releases items 
|from intermediate result stack 
[Generates calling sequence for | SETCPX 

[complex * and / operators, super- | 

|vises complex arithmetic 
[Inserts TMPD triples after zero 
|operands | 
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TITSE SET TI EI 1 
| | 
| Subroutines Used | 
A EF da j 
|ARITH, FUNCT, LZZ1, MOVEPC, | 
[SCAN (LA), STRING, SUESPT | 
| | 
}----------------------------------- { 
| ADDSTK, ASSIGN, CONVT, LICDES, | 
| EXPONT, GENRPD, GETADX, GETFR, | 
|GETGR, MCVEPC, RELSTK, SETCPX, | 
| STRING, SWOP | 
| | 
de---------------------------------- 1 
|LZZ1, MOVEPC, STALRG | 
| | 
}----------------------------------- 1 
[ADDSTK, DICDES | 
| | 
}~---------------------------------- 1 
|ADDSTK, ARITH, DICDES, GETFR, | 
|GETGR, SCAN | 
| | 
| | 
| | 
| | 
}~---------------------------------- 1 
|ADDSTK, ARITH2, CONVT, GETADX | 
| MOVEPC, STALRG, SWOP | 
| | 
| | 
| | 
}----------------------------------- | 
[ADDSTK, ASSIGN, GETFR, MOVEPC, | 
| STALRG | 
| | 
| | 
mu RE 4 
|GETADX, GETFR, GETGR | 
| | 
4----------------------------------- 1 
| GETADX, STALRG | 
| | 
| | 
a a Ege 1 
| None | 
| | 
}----------------------------------- 1 
| EXPONT, GETADX l 
| | 
| | 
$----------------------------------- 1 
|RELSTK, SCAN | 
| | 
Ls N E EE EEE le cece esse Soe J 
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Table LS1. 


PE A n A ren 
{Routine/Subroutine 


| ADDSTK 


| 
| ARITH/ARITH2 


(LT) 


FXC1 (LT) 


GENRPD 


GETFR/GETGR (LT) 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| GETADX 
| 
| 
l 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


(LT) 


3 
| 


Phase LS Routine/Subroutine Directory 


Function 
|Adds items to intermediate result stack. 


[Calculate result type and generate code for +, -, *, /, prefix +, 
|prefix -, compare operators, and ADD, MULTIPLY, and DIVIDE func- 
| tions. 


|Generates an assignment triple and TMPD in the output text. 


{Sets up dictionary entry for constant operand. 


{Calculates target type and generates assignment triple for conver- 


| sion. 


{Constructs operand description from dictionary entry. 


|Marks phases wanted/not wanted and releases control. 


[Calculates result type and generates pseudo-code for ** operator, 
land generates calling sequence to Library subroutines for complex 
larithmetic. 

| 

jInserts workspace description in TMPD triples after function, and 
[stacks result. 


[Inserts workspace description in TMPD triples after function, and 


[Stacks result. Stacks arguments for ADD, MULTIPLY, and DIVIDE func- | 


|tions. Adds pseudo-variable markers to stack. 


|Generates fixed binary pseudo-code. 


{Generates pseudo-code for packed decimal operations. 


[Sets up address of pseudo-code instruction. 


[Obtain free floating or fixed arithmetic register; store it, if 
[necessary. 


| 

















| 

LBO {Scans text and branches to processing routines. | 
| | 

LBE21 (LT) |Tests for operand conversions and constants. | 
| | 

LBFL1 (LT) |Generates floating pseudo-code. | 
| | 

LZZI [Inserts TMPD triples after zero operands. [ 
l | 

MOVEPC |Moves pseudo-code to output text. | 
| | 

PSI |Adds pseudo-variable marker to stack. | 
| 

RELSTK (LT) ¡Releases items from intermediate result stack. | 
| 

SETCPX (LU) [Generates calling sequence for complex * and / operators; supervises] 
|complex arithmetic. | 

| | 

STALRG [Generates pseudo-code to store all arithmetic registers currently in| 
| use. | 

| | 

STRING {Calculates result types for string operators. | 
| | 

SUBSPT [inserts symbolic register in subscript triple and puts result in | 
[stack. | 

| | 

SWOP |interchanges operands and optionally loads first operand. | 
E La is a a a a a a oo on tise 4 


Table LV. Phase LV Pseudo-Code String Utilities 
ONE EE 
| [Main Processing| 
| Statement or Operation Type | Routine | 
}-----------------~-----~-----------}--------------- + 
|Initializes module; releases con-  |STRUTO | 
[trol to next module | | 
[Converts data item to string; cal- |STRUT1 | 
|culates string length | | 
A AA A AA er a E 
|Produces a string dope vector des- |STRUT2 | 
[cription from a standard string | | 
EE | | 
ea a A A EE aS daria bool 
Table LV1. Phase LV Routine/Subroutine Directory 
[Routine/subroutine| Fun 


| LSUT1L7 |Tests whether string length is gr 
| [generates fixed length calling se 
| | 
| LSUT22 [Tests whether string dope vector 
| | 
| LSUT26 {Generates any assignment and TMPD 
| 

| USUT27 [Sets up assignment and TMPD tripl 
| | 
| STUTO |initializes module; releases cont 
| | 
| STRUT1 |Converts data item to string type; 
| | 

STRUT2 Produces string dope vector descr 

DU D g 

| |cription. 
| | 
| ZSTUTL [Transfer vector to STRUTI. 
| | 
| ZSTUT2 Ja obi ye vector to STRUT2. 
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SCAN (LA), STRUT2 


eater than 256, and if necessary 
quence. 


result is required. 
triples. 

es. 

rol to next module. 


calculates string length. 


iption from standard string des- 


——— — — — — — — — — — — — — — — — —À — n sen oué — — «am sèn — — — w — —— «n — 
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Table LX. Phase LX Pseudo-Code String Handling 


KEE e on RS A e a laca ae l. ANALIS A DA aaa aa WE ap ob Met OE IM 
|Main Processing] 

| Statement or Operation Type | Routine | Subroutines Used 

{Initializes phase, scans text and |BEGIN | FUNPT, SCAN (LA), STROP, 

|branches to processing routines; | [SUBSPT, TMPDT 

|releases control to next phase | | 

Li a en an fe e en ee ene 

|Processes TMPD triples. Arithmetic|TMPDT |GETMPD, MOVSEL, RELSTK, SCAN (LA) 

{type TMPDs are ignored. String | | SETMPD 

|TMPDs are replaced by the top item | | 

[from the string stack | | 

}----------------------------------- $--------------- }~----------------------------------- 

|Processes function and function | FUNT LADDSTK, DICDES, GETADS, GETMPD, 

largument triples.  Arithmetic type | | MOVEPC, RELSTK, SCAN (LA), SETMPD, 

[functions are ignored. Dictionary | | STROP 


[entries are created for the results] 

[of string type functions. A | 
llibrary calling sequence is gener- | 

lated for the BOOL function using | 

¡the mechanism for packed bit opera-| 
jtions. The result descriptions are| 
jadded to the string stack | 

| Processes subscript triples. | SUBSPT ADDSTK, DICDES, SBGNOR, SCAN (LA) 
lArithmetic type subscripts are | 
lignored. A symbolic register or 
|workspace offset is added to string 
Jtype subscript triples and the 
|string description is added to the 
[string stack 


| 

| 

| 

| 

| 
}----------------------------------- +--------------- +----------------------------------- 
|Processes string operaticns CONCAT, |STROP |ADDSTK, DICDES, GETADS, GETADX, 
|AND, OR, NOT and comparisons with | |GETMPD, MOVEPC, MOVSEL, RELSTK, 
[string type operands. For simple | [SCAN, STRUT (LV), ASSIGN, GETWSU, 
|cases, in-line pseudo-code is gen- | | GETWS8, SBGNER, SBGNR 
|erated; otherwise calling sequences | | 
[to the library are generated. The | | 
{results are added to the string | | 
|stack. | | 
PA LLL E LS A TI 
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eTable LX1. Phase LX Routine/Subroutine Directory 


|Routine/Subroutine| ^ Function ^ 0000000000000 i 
|ADDSTK ` |Adds strings to the intermediate string result stack. = 
| | | 
| | | 
JADSTR (LY) {Constructs dope vector and string descriptions from a given descrip-| 
| {tor which may describe either a string, or its dope vector. | 
Kë Kee an assignment triple and associated TMPDs in the output | 
| Jtext. | 
| | | 
| BEGIN |Main controlling routine for phase. | 
fee ean eee operand description from dictionary entry. | 
SERES ore result returned by functions. | 
Pm na funtion and function argument triples. | 
enc. ae address part of pseudo-code instruction. | 
SECHS ende operand description from IMPD triples. | 
KEN eee 4 bytes of aligned workspace. | 
| Gehirn lAllocates 8 bytes of aligned workspace. | 
e iia phase at end of program. | 
v. Ke Library calls for string operations. | 
ae (LY) NA pseudo-code for NOT operation. | 
eae (LY) edulis pseudo-code for concatenation operation. | 
I. (LY) e a pseudo-code for comparison operation. | 
iris (LY) neon ent pseudo-code for AND/OR operation. | 
(e EE pseudo-code to convert to string. i 
ee tee pseudo-code from buffer to output text. | 
T ‘ages SELL triples to output text. | 
ee an eg MVC instructions. | 
one eer Strings from the intermediate string result stack. | 
apenas roe next even-odd pair of symbolic registers. | 
Lesen [Gets next symbolic register. | 
JEAN E next symbolic register. | 
jeer léw aes TMPD triples from description. | 
Ge GE String operations CONCAT, AND, OR, NOT, and comparisons | 
| [with string type operands. | 
Lee Ve subscript triples. | 
Vrbis odece TMPD triples. | 
E MN flags for triple tyres. | 
SE atò o rt eid UNDE MERO CHEROKEE TROC Tm S 4 

Section 3: Charts and Routine Directories 241 


Table MB. Phase MB Pseudo-code Pseudo-Variakles 
dabei aT EG CA M QD EE ose ka e ki A BE A R IEEE 1 
| {Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used 
|-----------------------------------4---------------}----------------------------------- 1 
[Scans source text [MB0001 |SC1 (LA) | 
—————— eee GE eee meee oe be A Bee — ———— —À 4 
|PSI operator; starts new entry in  |MB0011 | SWITCH | 
[stack for pseudo-variable | | | 
——«—— — — }---~---~--~----}-----------------------------------| 
|PSI' operator; completes stack [MB0012 |SWITCH, TARGET | 
|entry and generates code for data | | | 
Jlist items | | | 
|----------------------------------- +----------- }~----------------------------------- : 
|ASsign completes stack and rescans |MBOO13 {DRFIMP, MMV3A5, MVTMPD, OUTMPD, | 
[group of assignments, putting tar- | | TARGET | 
[get descriptions out in correct | | | 
|sequence; generates code for l | | 
|pseudo-variables in stack | | | 
uec Mo CER WE ES NEU RUP RU n n ee ee as fe 4 
[Multiple assign; places only target|MB0014 | MVTMPD | 
{descriptors in stack | | | 
~---------------------------------- Gro pa ooo 
|Constructs pseudo-variable stack |MBOO20 | MVTMPD | 
|entry | | | 
~----------------+-----------------}+-------------- }-----------------------------------] 
|Places temporary descriptor in | OUTMPD | MMV3A5 | 
[output | | | 
—— pa $-~---------------------------------4 
[Gets temporary workspace for | TARGET | GETWKS | 
|pseudo-variable, if necessary | | | 
TEE o QU FREUE M EE Me ee Is eee EE SES a eo SNR. NIIS J 
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Table MB1. 


papi ae 
[Routine/Subroutine 


n — eee 


| DRFTMP 
| GETWKS 
Penna 
TT 


| 
| MB0010 


z 
| 


Phase MB Routine/Subroutine Directory 


— m a am an e am au an ans oua us au dim «ine «tan cane A E Á—t——— MP E rm vn SEN mm E mm vm dan vm e ve e vm e vm mm pm E vn a i a a e a — 


Function 


|Makes temporary descriptor from a dictionary reference. 


{Obtains workspace to accommodate a variable of given type. 


[Scans source text. 


|Multi-switch for triples of interest. 


[On reaching end-of-text marker, releases remaining block, ana 
[releases control of phase. 


[PSI operator; starts new entry in stack for pseudo-variakle. 


|PSI' operator; completes stack entry and generates code for data 
|list items. 


|ASSIGN; completes stack and rescan group of assignments, putting 
[target descriptions out in correct sequence, generates code for 
|pseudo-variable in stack. 


[Multiple ASSIGN; places any target descriptors in stack. 


{Constructs pseudo-variable stack entry. 


|Resets input pointer to start of sequence of ASSIGNS. 


|Rescans ASSIGNS and associated TMPDS from stack in reverse order. 
|Tests for end of stack. 


[Tests for pseudo-varaible TMPD. 


|Generates code for pseudo-variable. 


[Moves one triple to output. 


|Places temporary descriptor in stack. 


[Places temporary descriptor in output string. 


|Changes scanning table. 


{Obtains temporary workspace for pseudo-variable, if necessary. 
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e Table MD. Phase MD Pseudo-Code In-Line Functions 
pH POTE cem qeu puc mmm erem Me MUR MORI MUNI AE DEED EU. 1 
| |Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 


a rs rd 


[Phase LA (SCAN) | None 


e re — am rm vm is a mm ds ra mn e — —Á e mm mm M M re MEN mm m — - X en — M o M mm X 9 5 


|Builds up function stack | LFARIN | None | 
——Ó——— A A A dee eege 
[Builds up argument stack | LFCOM | None | 
ko E a A DE IR A E EN HRS AO ] 
[Moves generated code to output | LFMOVE | MV3 (LA): | 
| block | | | 
J——————  — H Ó— }-----------------------------------| 
|Generates in-line code and | LFEOF2 | SNAKE | 
|library calling sequences | | | 
basurero o Lo A A A E A E oo a J 
e Table MDl. Phase MD Routine/Subroutine Directory 

pS LSO NERO O E AA RT 1 
| LFARI1 {Continues scan for in-line functions. | 
| | | 
| LFARIN [Builds up function stack. | 
| | | 
| LFCOM ¡Builds up argument stack. | 
| | 
| LFDR |Unpacks dictionary reference of argument when argument triple found. | 
| | | 
| LFEOF2 [Calls subroutines to generate in-line code. | 
| | | 
| LFIGN {Removes triple from text if inside an in-line function. | 
| | | 
| LFSPEC [Branches if IGNORE triple or not an in-line function. | 

| | 
| SNAKE {Generates code for ADDR function. | 
kose ansasen e n Se E caue A A n a e e e J 
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e Table ME. Phase ME Pseudo-Code In-Line Functions 


prre seque mM Io A E qoe EET the ee 1 

[Main Processing| | 
| Statement or EEN Type | Routine | Subroutines Used | 
|~-----------------------~-----------}---------------}----------------------------------- { 
|Scans and moves text |Phase LA (SCAN) {SC1,SC2,SC3,SC5,MV3 | 
Sum cuo cose ewe AE NH eee NM ES OSEE E 
[Builds up function Stack | SFUNC | ZDRAOF | 
La ae ae io ee fon ee fo nn es e = == = === 4 


| Constructs result TDB and branches |SFNPM 
[to routines for INDEX, UNSPEC, | 
[COMPLETION, and STATUS | 


———— — anm m» — — anm — — ana —À — — — a a ente — Gan (e € — e a nm i mm e o — mm — ——— —Ó — — 


|Inspects arguments and branches to |MSB 
ee subroutine | 


}MS4,MS5,MSE,RTAA, RTAB, INDEX, | 
| ILUNSP, EVENT, ZDRAOF, STATUS | 


| None | 
RR Pen A rer EI DUTIES Fa pO af A ------- 
| ZDRAOF | 
Si E EE CLE | 


eTable M&1. Phase ME Routine/Subroutine Directory 


]Routine/Subroutine] Function 
| EVENT {Generates in-line code for COMPLETION function. 
| | 
| 
| FINISH [Passes control to the next phase. 
| | 
| ILUNSP |Generates in-line code for the UNSPEC function. 
| 
| INDEX {Generates in-line code for optimizable invocations of the function 
| | INDEX. 
| 
| MSB [Calls subroutines to generate in-line code. 
| | | 
| MSG {Resets current flag and continues scan. 
| | 
| RLCTOF ¡Releases module and passes to next phase. 
| 
| RTAA [Generates in-line code when the result is in a register by name, and 


|the second argument is 


RTAB |Generates in-line code 
[the second argument is 


RTB {Generates in-line code 


laligned bit string, and the second 


|constant. 


RTC (Generates in-line code in the case when the first argument is a 
[character or aligned bit string, 


RTD |Generates in-line code when the first argument is a character or 
laligned bit string, the second is constant and the third is not 


| present. 
| 

RTE {Generates in-line code 
[String, and the second 
| 

RTF {Generates in-line code 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| [the third variable. 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| {string, and the second 
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constant. 


when the result is 
variable. 


in 


for the case when the 


when the first argument is a packed bit 


is constant. 


when the first argument is a character 
and third are both variable. 


and third 


the second argument is constant and 


a register ky name, and 


first argument is an 
arguments are both 
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Table ME1. 


qune ccu ent 
jRoutine/Subroutine 
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pS 
| 


Phase ME Routine/Subroutine Directory (continued) 


———— — — — ———— —— — — — e — — — — — — —  —À qua a «an GEN a o — mn mm — —X M mm E ee Aa e — pn —— i o a — ew — — — eo 


Function 


|Generates in-line code when the first argument is a character 
|String, the second is variable, and the third is not present. 

| 

|Generates in-line code when the first argument is a bit string, and 
Ithe second is variable. 


|Error routine. 
[Gets the next even register and sets the even/odd kit on. 
[Gets the next odd register and sets the even/odd bit on. 


[Gets the next available symbolic unassigned register. 


|Scans for the next triple of interest. 


|Initializes pointers and text blocks. 
| 

[Builds up argument stack. 

| 


|Generates in-line code. 


{Builds up function stack. 


{Deletes current triple. 
{Generates code for STATUS function. 


{Constructs a string dope vector. 

| 

[Generates code to place the address of the first argument plus a 
[literal offset into a symbolic register. 

| 

|Generates a ST and DROP instruction, optionally followed by a MVI 
instruction. 

| 

{Constructs a dictionary entry for the constant JJ, and generates an 
{MVC instruction. 


{Generates two STH instructions, followed by a DROP instruction. 

| 

|Generates an RX instruction to operate on a TDB by a register, 
[optionally followed by an instruction to drop any register used in 
[addressing the TDB item. 


|Generates SR, SLDL, OR instructions. 


| 
|Generates SR, SRDL, OR and DROP instructions. 


|Calculates correct values for ILEN, IOFF and Y. 
| 


{Converts a dictionary reference to an absolute address. 


¡Releases scratch core. 


7 


A E E Fe Da E au Swa — — a — a — at ee se — ma swen quean A 


Table MG. Phase MG Pseudo-Code In-Line Functions 1 
a ee ee Weeer VEH 1 
[Main Processing | | 
| Statement or Operation Type | Routine | Subroutines Used | 
po A pa oo 1 
[Scans text |PHASE LA (SCAN) | None | 
(———Á—— === —— }-----------------------------------4 
{Builds up function stack | LFARIN | None | 
{oon--- === -------------------------- $--------------- $-----------------------------------| 
{Builds up argument stack | LFCOM | None | 
|-----------------------~-----------}-------+-------}------+---------------------------- 4 
|Move generated code to output | LFMOVE |MV3 (LA) | 
| block. | | | 
----------------------------------- }--------------- }------~---------------------------- 1 
|Generates in-line code | LFEOF2 |ABEFLL, ABLFLS, ABSFB, ABSFD, | 
| | |ALLCC2, CEILB, CEILD, CEILL, | 
| | |CEILS, CMPLXB, CMPLXD, CMPLXL, | 
| | |CNASTR, CNVINT, CCNJGB, CONJGD, | 
| | |CONJGL, CONJGS, ERRFUN, FLOORE, | 
| | {| FLOORD, FLOORL, FLOORS, IMAGE, | 
| | |IMAGFD, IMAGL, IMAGS, REALE, | 
| | [REALFD, REALL, REALS, SBGTNR, | 
| | | TRUNCB, TRUNCD, TRUNCL, TRUNCS, | 
| | | UNSPEC, UTTEMP | 
—————————————— a ee Lions as A A A NR et eee J 
Table MG1. Phase MG Routine/Subroutine Directory 
(=== ===> PSSS e A n tn A A A mmm 1 
|Routine/Subroutine| Function | 
------------------ —————— — ————— e MG 
| ABBFLL |Generates in-line code for ABS function with long floating-point | 
| largument. | 
| | | 
| ABBFLS |Generates in-line code for ABS function with short floating-point | 
| largument. | 
| | | 
| ABSFB {Generates in-line code for ABS function with fixed binary argument. | 
| | | 
| ABSFD |Generates in-line code for ABS function with fixed decimal argument. | 
| | | 
| ALLOC2 |Generates in-line code for ALLOCATION function. | 
| | | 
|CEILB (MH) |Generates in-line code for the CEIL function with fixed binary arau-| 
| |ment, | 
| | T ae | 
|CEILD (MH) |Generates in-line code for the CEIL function with fixed decimal | 
| jargument. | 
| | | 
|CEILL (MH) |Generates in-line code for CEIL function with long floating-point | 
| largument. | 
| | | 
|CEILS (MH) {Generates in-line code for the CEIL function with short floating- | 
| |point argument. | 
| | | 
| CMPLXB |Generates in-line code for COMPLEX function with fixed binary | 
| jargument. | 
| | | 
| CMPLXD {Generates in-line code for COMPLEX function with fixed decimal arqu-| 
| |ment. | 
| | ES b | | 
| CMPLXL {Generates in-line code for COMPLEX function with long floating-point | 
| largument. { 
| | | 
| CNASTR |Constructs assignment triple and associated TMPDS. | 
| | | 
| CNVINT |Converts a decimal integer constant to fixed binary. | 
MERCEDE PER Bep Ane IS TCR iS rM A uou ME RPM AAA AR J 
Section 3: Charts and Routine Directories 247 


























J 


Table MG1. Phase MG Routine/Subroutine Directory (cont'd) 

puto mm Up quocum mcm eem MM me cc ecc eT 1 
|Routine/Subroutine| Function | 
}------------------ ł-----------------------------------------------------------------—-—: | 
| CONJGB |Generates code for the CONJG function with fixed binary arguments. | 
| | | 
| CONJGD [Generates in-line code for the CONJG function with fixed decimal | 
| larguments. | 
| | | 
| CONJGL |Generates in-line code for the CCNJG function with long floating- | 
| |point arguments. | 
| | | 
| CONJGS {Generates in-line code for the CONJG function with short floating- | 
| {point arguments. | 
| | | 
| ERRFUN |Aborts if Phase IM discovers an error in a function. 

| | | 
|FLOORB (MH) {Generates in-line code for the FLOOR function with fixed binary | 
| largument. | 
| | 
| FLOORD (MH) [Generates in-line code for the FLOOR function with fixed decimal | 
| largument. 

| | | 
|FLOORL (MH) |Generates in-line code for the FLCOR function with long floating- 

| |point argument. 

| | 

{FLOORS (MH) {Generates in-line code for the FLOOR function with short floating- | 
| |point argument. 

| | | 
| IMAGB {Generates in-line code for IMAG function with fixed binary argument. 
| | | 
| IMAGFD {Generates in-line code for IMAG function with fixed decimal | 
| largument. l | 
| | | 
| IMAGL |Generates in-line code for IMAG function with long floating-point | 
| |argument. | 
| | | 
| IMAGS [Generates in-line code for IMAG function with short floating-point | 
| largument. | 
| | | 
| LFARIN [Builds up function stack. | 
| | | 
|LFARI1 [Continues scan for in-line functions. [ 
l | 
| LFCOM |Builds up argument stack. | 
| | | 
| LFDR [Unpacks dictionary reference of argument when argument triple found. | 
| | | 
| LFEOF2 [Calls subroutines to generate in-line code. | 
| | | 
| LFEOF3 [Depending on start of argument list, branches to produce in-line | 
| | code. | 
| | RR SÉ , | 
| LF IGN |Removes triple from text if inside an in-line function. | 
| | | 
| LFMOVE |Moves generated code to output block. | 
| | | 
| LFSPEC |Branches if IGNORE tripie or not an in-line function. | 
| | | 
| REALB [Generates in-line code for REAL function with fixed binary argument. | 
L 
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Table MG1. Phase MG Routine/Subroutine Directory (cont'd) 
[Uc OUI EE qoem eme Ec ge quM m M ecd ecd e eed eric E ue MUERE EDEN EUN HI MONIO ae Me 1 
[Routine/Subroutine| Function { 
son eta eee €————————————ÓMÁÓÓ————— M 
| REALFD [Generate in-line code for REAL function with fixed decimal argument. | 
| | 
| REALL |Generate in-line code for REAL function with long floating-point { 
l | argument. | 
| | | 
| REALS {Generates in-line code for REAL function with short floating-point | 
| |argument. | 
| | 
| SBGTNR |Get next available symbolic register. | 
| | | 
[TRUNCB (MH) {Generates in-line code for the function TRUNC with fixed binary Í 
| largument. | 
| | | 
| TRUNCD (MH) {Generates in-line code for the TRUNC function with fixed decimal | 
| largument. | 
| | 
| TRUNCL (MH) |Generates in-line code for the TRUNC function with long floating- | 
| [point arguments. | 
| | | 
| TRUNCS (MH) {Generates in-line code for the TRUNC function with short floating- | 
| [point argument. | 
| | 
- [UNSPEC (MH) |Generates in-line code for the UNSPEC function. | 
| | 
| UTTEMP |Gets a required amount of temporary work space. | 
(aco Soe eet Deere MMC M NT ee a ee ee a ACHT OR ee a PP ed 4 
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Table MI. Phase MI Pseudo-Code In-Line Functions 2 
maa deco pude ne seio es cie ue dcm eren AA A a ee s 1 
| |Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
|----------------------------~------ pa a aaa 4 
{Scans text [PHASE LA (SCAN) | None | 
Ó——————————— }-----------------------------------| 
|Builds up function stack | LFARIN | None | 
Án $-----------------------------------{ 
|Builds up argument stack |LFCOM | None 
}----------------------------------- }---------------}----------------------------------- i 
|Move generated code to output block |LFMOVE |MV3 (LA) | 
}----------------------------------- }--------------- }---------~------------------------- 
{Generates in-line code | LFEOF 2 |MAXB, MAXD, MAXL, MAXS, MINB, MIND, | 
| | [MINL, MINS, MODB, MODD, MODL, MODS, | 
| | {ROUNDB, ROUNDD, ROUNDL, ROUNDS | 
—— €€—— — ———— ees oe Locus isa CA AA E A laa J 
Table MI1. Phase MI Routine/Subroutine Directory 


A eue c 
| Routine/Subroutine 


| LFARIN 
ne 
‘BORD 
| LFMOVE 
NGG ANE 


| 

| MAXD/MIND 
MAXL/MINL 
MAXS/MINS 


(MJ) 


ES 
O 
O 
D 


(MJ) 


= 
O 
CH 
D 


(MJ) 


= 
O 
Og 
p 


(MJ) 


ES 
O 
J 
m 


ROUNDB 


" 
o 
d 
Z 
el 
el 


(MJ) 


(MJ) 


(MJ) 


(MJ) 


DER MCI I E LM a MTM PE RCM IM C M cC a MM ED rd 1 
| Function | 
A —— — ———— es { 
[Builds up function stack. | 
| | 
|Builds up argument stack. l 
| 

[Calls subroutines to generate in-line code. | 
| | 
|Moves generated code to output block. | 
| | 
[Generate code for MAX/MIN function with fixed binary arguments. | 
| 

{Generate in-line code for MAX/MIN function with fixed decimal | 
|arguments. | 
| | 
[Generate in-line code for MAX/MIN function with long floating-point | 
|arguments. | 
| | 
{Generate in-line code for MAX/MIN function with short floating-point | 
|arguments. | 
| | 
[Generates in-line code for MOD function with fixed binary arguments.| 
| | 
|Generates in-line code for MOD function with fixed decimal argu- | 
[ments. | 
| | 
|Generates in-line code for MOD function with long floating-point | 
jarguments. | 
| | 
{Generates in-line code for MOD function with short floating-point | 
|arguments. | 
| 

[Generate in-line code for ROUND function with fixed binary argument. | 
| | 
|Generates in-line code for ROUND function with fixed decimal argu- | 
| ment. | 
| | 
[Generate in-line code for ROUND function with long floating-point | 
larguments. | 
| | 
{Generate in-line code for ROUND function with short floating-point | 
|arguments. | 
A E E P—— p —————————————— PO en — n eat 
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eTable MK. 





eTable MERL, 


| 
| FREBIF 


| 
| HBOUND 


feos 
ge 
| LFARIN 
ee 
egen 
VE 
ENEE 
| SIGNFD 


| 
| SIGNL 


|Generates 


(Generates 


|Generates 


|Generates 


|Generates 


| 
|Builds up 


| 
¡Builds up 


1 
{Main Processing | 


| R 


+ 
| LFEOF 
| 


code for DIM 


Phase MK Pseudo-Code in-Line Functions 3 


outine 


2 


Phase MK Routine/Subroutine Directory 


function. 


+ 
| MV3 


|DIM, 


[SIGNFD, 
D ENESE OE EA "——————— —— ——————— ——M— =d 


code for FREE function. 


code for 
code for LBO 
code for LEN 
function sta 


argument sta 


UND 


GTH 


ck. 


ck. 


HBOUND function. 
function. 


function. 


|Calls subroutines to generate in-line 


|Moves generated code to output block. 


{Generates 


|Generates 


|Generates 


|Generates 


code for SIG 


code for SIG 
code for SIG 


for SIG 


N function 
N function 
N function 


N function 


with 
with 


with 


—— — — — 


(LA) | 


HBOUND, LBOUND, LENGT, SIGNFB, | 
SIGNL, SIGNS, FREBIF | 


code. 


fixed binary argument. 
fixed decimal argurent. 
short floating point argument. 


short floating point argument. 
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Table ML. 


|Scans text 


J invocation 


Table ML1. 


Routine/Subroutinr 


Phase ML Pseudo-Code Calls and Functions 


|Main Processing| 


| Statement or Operation Type | Routine | Subroutines Used 
ia aia Ee en a a Ta a PO) Sa aa al aera a al --1 
{PHASE LA (SCAN)|None 
———————Óá— NR; ———— ———————————— 
|Identifies argument of procedure | FPFNAR | None 
| | 
Messe EE ———— A cec cec 1 
{Selects generic built-in function |FPBIF | FPARD1 
— — ——————— Á——— es A T 
[Selects PL/I generic entry name | FPGAR [FPARD2, FPARD3, GNSECO 
kl e on ki pa ki a ak n kk despri kaa bereet eegent 
Phase ML Routine/Subroutine Directory 
e — am mm ana quu P ET LP EIU E NCO RE greta E NEU E TEM I v I MA prs Ei. CUI TR A RUM NY VETAT I E 
| Function 


== 
| 


——— — —À —À —À — en — — «an — am «aa an aa» mmm efe n ann mn «Gm ae e a wm nn p a au a ae VA Mmm s as aam s am am dia ci pi MED mm op ai ame mium duis cuim auum Ema si em MAD m AP MER ap Wan ana as ams am Aum spun n S D Gan Ga. ami as mem dumm dim m aio ao ame a ane au m ei 


| FPAO1 [Scans for next argument. | 
| | | 
| FPARD1 lObtains parameter descriptions relating to built-in function argu- | 
| |ments. 
| | | ee | 
| FPARD2 JObtains successive parameter descriptions relating to the entry | 
| [description of PL/I generic procedure. | 
| | | 
| FPARD3 |Obtains and stacks full parameter description of a PL/I generic | 
| | procedure. | 
| | | 
| FPBIF [Selects generic built-in functions. | 
| | | 
| FPEPCO |Constructs an entry parameter. | 
| | 
| FPFNAR |Identifies arguments of procedure invocations. | 
| | | 
| FPGAR [Selects PL/I generic entry name. | 
| | | 
| GNFM2 |Replaces generic reference testing for uniqueness. | 
| | | 
| GNSECO [Makes entry in stack of parameter descriptions. | 
ker ee SS A A a o i a Lm Mei E gy ac I Ee E EA J 
eTable MM. Phase MM Pseudo-Ccde Calls and Functions 

A A UICE I QUEE qu eene E Cem MM Ee 1 
|Main Processing| | 

| Statement or Operation Type | Routine | Subroutines Used | 
——— a D AA aa RD BGB 4 
[Scans text | PHASE LA (SCAN) | None | 
m ———Á———————— — —p———— ———————t— ——Í—— Áo» | 
{Scans list, counts arguments and | CFCALL [CFARID, CFFBIR, CFFDVS, CFMVTR, | 
lidentifies storage class | | CFMVCD | 
Leben 1 
|Rescans list and generates calling |CFCFSS |CFARHA, CFCALP, CFBIFH, CFMLBR, | 
|sequence for library routine | |CEMVCD, CFNEST, UTTMPW, CFAIF1, | 
| | | BASED | 
RC a ee llcaenceecueLeece SA A a ec Lut A J 
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| Routine/S ubroutine| 


t A Ee P a Sis SON [RP 


| BASED 
roa 
TE 
CFARHA 
CFARID 


CFBIFH 


CFBOU 

CFBO21 
CFBO36 
CFCALL 


CFCALP 


CFCO3C 
CFCFSS 
CFEXIT 


CFFBIR 
CFFDVS 


CFLO6 
CFLO43 


CFMLBR 


CFMVCD 
CFMVTR 
CFNEST 
CFY007 


UTTMPW 


Em mon mmm A A — —M— — — — —À — — — — A — re — — — — —— — — ana na E —— — — — — — — — — —o oo 


@Table MM1. 


(MO) 


(MO) 


(MO) 


(MN) 


(MN) 


(MN) 


Phase MM Routine/Subroutine Directory 


Function 


|Generates relocation code for based variables. 


|Initializes phase. 


|Places address of invoked routine at the head of its argument list. 


|Generates calling sequence. 


[Counts arguments and sets STATIC/AUTO flag. 


[Further built-in function identification with relevant parameter 
|setting. 
| 


|Restores previous environment. 


ests nature of function found. 


| 

|T 

| 

|Restores pointer to start of invocation. 

| 

{Scans lists, counts arguments, identifies storage class. 
| 


[Completes calling sequence and, if necessary, generates code to 


linitialize dope vector. 


[Tests for nested function. 


|Rescans list and generates calling sequence for Library routine. 


[Transfer vector after first scan. 
| 

{Identifies built-in functions, 
Igeneration. 


[Reserves output text area for generation of code to initialize dope 
|vector when a function returns a string. 


[Generates code to set up result dope vector. 


|Generates code to place result address in argument list. 


|Generates code to move a skeleton parameter list which is greater 
|than 256 bytes. 


[Generates pseudo-code into the output text block. 


[Generates triple into the output text block. 


|Bandles a nested situation. 


[Sets parameters to produce special calling sequences. 


Sets parameters for calling sequence 


|Allocates one word of uoces 
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eTable MP. 


Phase MP Pseudo-Code BUY Reorder 


Ro emm gn AI E gne Tou ur m mque n PIN C TT 1 
|Main Processing | 


| Statement or Operation Type | 


eTable MP1. 


[------------- 
[Routine/Subroutine 


——— — — — — — —À —— —— —— mm ae — — gem zb m vm mm A o e e re — e — — mm M n Xu " A Y ^w "— emm aw mn — M OP "UM mm vm — — A— gu "— X "n "X —— rèn — € e MÀ t — — ee — — re —— —— c —— a M — —— — —— — e 


[Adds SELL dictionary reference to SELL list if not already there. 
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{Main controlling routine for rearranging BUY and SELL statements 
|involved in obtaining VDAs for adjustable length string temporaries. 


| Processes 


| Processes 
| 


| Processes 


[Continues 
| ture. 


[Continues 


| Processes 


| Processes 


| Processes 


| Processes 


| Processes 


EOP triple. 


Routine 


Phase MP Routine/Subroutine Directory 
A A A A usan enu mm IN e O OU mus eS ee ene m qne Ded re ere nem egens 1 
| 


|SCAN, 


Function 


Subroutines Used 


ZDRFAB, 


ZTXTRFE, 


Releases control of phase. 


BUYS triple. 


BUYX triple. 


text scan if not string or arithmetic data, or not struc- 


Scan of text. 


BUYS triple. 


BUY ASSIGN 


BUY triple. 


trirle. 


SUBSCRIPT triple. 


ASSIGN triple. 


|Accesses top stack entry. 


[Tests triple for BUNN, and processes. 


|Scans for 


BUYS, BUY, 


and SELL triples. 


|Processes SELL triple. 


[General scan routine. 


[Converts dictionary reference to absolute address. 


{Changes absolute address to a text reference. 


|Makes error message entries. 


ZUERR 


Table MS. 


Phase MS Pseudo-Code Subscripts 


| Statement or Operation Type | Routine | Subroutines Used | 
ET na M AMEN [SESCAN [cM NM MP E | 
[calculates element offset ISBSTIH ` [SBASS, SBCOBI, SBGNOR, SBMVCD, | 
| | | SENEST, SBSUBP, SBSUDV, SBXOP, | 
| | | UTTEMP | 
}~---------------~-------~----------}--------------- $----------------------------------- 1 
|Checks subscript range | SBSBRN | None | 
A MMC ee or ee ae Lats otr Don AS c mu ARA J 
Table MS1. Phase MS Routine/Subroutine Directory 
[Routine/Subroutine} — Function 000000000 i 
ISBASS — [Updates scan pointer over an assignment. ^ | 
ee (MT) {Converts subscript to binary integer. | 
| SBERR (MT) E error message into dictionary. | 
Fb (MT) JAllocates an odd symbolic register. | 
ee (MT) eet pseudo-code and moves it into output text block. | 
fare (MT) |Handles nested subscript situation. | 
pene (MT) [Checks subscript range. | 
| SBSCAN TT to LA for scan. | 
Ru ee element offset. | 
GE Ge array name. | 
{SBSUBP (MT) eebe end of subscript list. | 
snos SNR code to set up the dope vector of an array of adjustable | 
| |strinags. | 
ege erte code to multiply subscript by multiplier. | 
TT |Compiles code to convert to fixed binary. | 
RR (Giècké for occurrence of subscript. | 
iss one IRE code to multiply subscript by 4 or 8. | 
Vase pones for comma, Subscript prime, or subscript triple. | 
kèsion (MT) |Handles special index feature. | 
Ge EE scan of text. | 
foe (MT) |Allocates workspace. | 
Ec o Ca op mcd oe a n A ag A Se E e a cn nla cece ea ne res eins EU II UN J 
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Table NA. Phase NA Pseudo-Code Branches, ON, Returns 
a mE ESO Ep I c pra Um n 1 
| |Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
E ae A E a A € el PIC ai | 
[Initializes text block | NAINIT |SCINIT (LA) | 
SEA A EE fen enna nnn a +--+ =| 
{Scans text for next triple of |NASC1, NASC2, [SC1, SC2, SC3 (all in LA) | 
|interest to user | NASC3 | | 
|-----------------------------------}--------------- }+----------+-+--------------------- | 
|Processes STOP statements | STOP | NAUT1 | 
Pro pa pa eee | 
| Processes EXIT statements | EXIT | NAUT1 | 
GC———M— —— M——— Á—— —— 1 
[Processes IF statements | IF |NAUTD, NAUT16, NAUT21, ZSTUT1 | 
|----------------------------------- ł--------------- }------~----------------------------. | 
|Processes ON statements | ON |[NAU1D, NAU16, NAUT16, SCD (LA) | 
~---------------------------------- MEE d 
|Produces Library call at end of |PROCP, BEGINP |NAUT1 | 
[each PROCEDURE or BEGIN block in | | | 
|source text | | | 
|~---------------------------------- d--------------- ł----------------------------------—: | 
|Processes RETURN Statements [RETURN | NAUT1 | 
ļ----------------------------------- ł---------------ł----------------------------------—: | 
[Processes function RETURN state- [NA3002 |NAUTPR, NAUTICA, NAUT1, NAUTi2 { 
|ments for one data type | | | 
}~---------------------------------- {--------------- Po a ar ron | 
[Processes function RETURN state- [NA3013 [NAUTA, NAUTB, NAUTCA, NAUTD, NAUTF, | 
[ments for more than one data type | INAUT1, NAUT7, NAUT8, NAUT9, NAUT11, | 
| | | NAUT12 | 
}----------------------------------- 4 --------------- —————— 4 
[Processes GO TO statements | GOTO | NAUTD | 
|-----------------------------------}---------------}---------------------+-------------- 4 
[Processes GOLN triples [GOLN | NAUTD | 
Lesben 
{Processes GOOB statements | GOOB |NAUT5, NAUTD, NAUT16, SC5 (LA) l 
| ~---------~------------------------}------------+---}----------------------------------- 4 
|Processes SIGNAL statements | SIGNAL |NAUTD, NAUT6, NAUT16, NAUTS, | 
| | | NAUT10, NAUT21 | 
}--~--------------------------------}---------------4}--------------------------- ~------- 1 
[Processes REVERT statements | REVERT |NAUID, SC5 (LA) | 
A A E EM oe A Ya Lesoto c NA A A A An J 
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Table NA1. Phase NA Rcutine/Subroutine Directory 


p-7----------------- 
| Routine/Subroutine 


| GOOB 


| 

| GOTO 

| 

| GOLN 

| 

[IF 

| 

| NAINIT 


| 
| NASC1/NASC2/NASC3 


T 


| Processes 


| Processes 


| Processes 


| Processes 


| Processes 


EXIT statements. 
GOOB Statements. 
GO TO statements. 
GO TO label number (GOLN) triples. 


IF Statements. 


|Initializes text blocks. 


|Scan text 


|Generates 


for next triple of interest to user, 


pseudo-code to test switch value at RETURN (function 


jvalue) statement for more than one data type. 


| Generates 


[Generates 


|Generates 


[Generates 


assignment triple to RETURN function result. 
assignment triple set up by NAUTB. 
indicated pseudo-code. 


pseudo-code to branch to ECU value. 
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Table NA1. Phase NA Routine/Subroutine Directory (cont'd) 
(Soe iie EE qoe Ee EUMDEM MU Ee EIE o e ki e ae 1 
{Routine/Subroutine | Function | 
}------------------ ł-------------------------------------------------------------------- 1 
| NAUT1 {Generates call to indicated library routine. | 
| | 
| NAUT2 |Moves indicated pseudo-code, deletes current triple, continues text | 
| |scan. 
| | mn ; ! | 
| NAUT5 [Makes dictionary entry for indicated library routine. | 
| | 
| NAUT6 [Updates current symbolic register vaiue. | 
| | | 
| NAUT7 ¡On entry, register ER points at an entry label dictionary entry. On 
| [normal exit from the routine, register BK points at the next label 
| [dictionary entry. Abnormal exit indicates that there are no further] 
| [labels on the current PROCEDURE or ENTRY statement. | 
| | | 
| NAUT8 |Bump EQU* value for branch pseudo-code item. | 
| | | 
| NAUT9 {Bump return switch value to be used for current entry label. | 
| | | 
|NAUT11 |For current entry label, generate appropriate EQU* pseudo-code item.| 
[ l | 
| NAUT12 {Converts current label dictionary reference to an absolute address. | 
| l | 
| NAUT16 |Converts dictionary reference of triple second operand to absolute | 
| laddress, loads address into register BR. | 
| | | 
| NAUT17 |Makes dictionary entry for maximum negative number. | 
| | | 
| NAUT18 |Makes indicated dictionary entry. | 
| | 
| NAUT21 [Generates pseudo-code to compare source bit string, making library | 
| [comparison routine dictionary entry, if necessary. 
| | | 
|NA1100 {Tests for SNAP. 
| | | 
|NA1150 [Using NAUTD, generates code for CN-units. 
| | | 
|NA3002 {Processes function RETURN statements for one data type. | 
| | | 
| NA3005 [Outputs assignment triple. | 
| | | 
| NA3013 |Processes function RETURN statements for more than one data type. | 
| | | 
| NA8003 {Generates pseudo-code for branch and mask, labels. | 
l | | 
|NA8010 |Converts ID to bit-string. | 
| | 
|NA8012 {Outputs pseudo-code. Compares bit-string to zero. | 
| | | 
| ON |Processes ON statements. | 
| | l 
| PROCP/ BEGINP |Produce Library call at end of each procedure in source text. | 
| | | 
| RETURN |Processes RETURN statements. | 
| | | 
| REVERT |Processes REVERT statements. | 
| | | 
| SIGNAL |Processes SIGNAL statements. | 
| | | 
| STOP |Processes STOP statements. | 
| | | 
| 29TUT1 IString utility in Phase LV to provide a dope vector for a specified | 
| | string. | 
E a HEUS D A A II J 
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eTable NG. Phase NG Pseudo-Code Operating System Services 


SSS a O m cde ideae MA A NS PATA A A AA 1 
| [Main Processing] | 
| Statement or Operation Type | Routine | Subroutines Used | 
ÓN Lech) 
[Processes ALLOCATE triples for | ALOCAT |CALIB, FALUTÍ | 
|based variables | | | 
|----------~------------------------ — — eee { 
| Processes DELAY triples | DLAY |CALIB, INTEG, SCAN (LA) | 
po ro onn }---------------}----------------------------------- 1 
|Processes DISPLAY triples |DSPY |CALIB, CHAR, ENDLST, | 
| | [SCAN (LA), STCRAD | 
| -------------------~----------------}---------------}----------------------------------- { 
i Processes FREE triples for based | FREE [CALIB, FALUT1 | 
| variables | | | 
P E EN E A E NER RON M a | 
|Processes WAIT triples | WAIT | CALiB,INTEG,SCAN(LA),OPLAST | 
NR Nor a A oi a ete dcc e ute m ec MS le a gna a eie caue EE J 
eTable NG1. Phase NG Routine/Subroutine Directory 
A cece E O A SN ke kk le E —— P d 
|Routine/Subroutine| Function | 
-——--------------- -—— —————M—— ——M——— 
| CALIB |Generates part of calling sequence and makes dictionary entry for | 
| [Library routine. | 
| | | 
[CHAR (NH) |Converts a given argument to character string. | 
| | | 
| DLAY [Processes DELAY triples. | 
| | | 
|DSPY |Processes DISPLAY triples. | 
| | | 
|DSPY3 |Tests that operand is character variable. | 
| | 
|DSPY4 jMakes dictionary entry for parameter list. | 
| | | 
| DSPY10 [Scans for REPLY option. | 
| | | 
| ENDLST [Completes parameter list and makes dictionary entry for it. | 
| | | 
| FALUT1 |Examines argument of ALLOCATE or FREE triples to see if variable is | 
| |based and forms RDV in workspace to prepare for call to the library. | 
| | | 
|INTEG (NH) |Converts a given argument to an integer. | 
| | | 
| NGO [Scans to next triple. | 
| | 
| OPLAST [Builds up parameter list in workspace. | 
| | | 
| STORAD [Stores an address in a parameter list. | 
AAA ee cu Te a I — ——— — A — —À a "—X — —— HH 4 
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eTable NJ. Phase NJ Pseudo-Code RECORD I/O 


T 
|Main Processing 
| Statement or Operation Type | Routine 


|Initialize Phase NJ by calling in |STRTNJ 
(block NK and initializing SCAN 
| utility 
|Initializes switches and flags to NUSTAT 
Jindicate start of new statement. 
|Determines RECORD-oriented I/O verb 
Jand goes to appropriate routine 
[Gets next triple of interest, | SCNOPT 
|converts to internal code and sel- | 
jects the appropriate routine to | 
Jprocess it | 
|Processes FILE option of RECORD- | FILOPT 
loriented I/O by placing dictionary | 
[reference of FILE Declare DCB in | 
|the appropriate slot of the param- | 
Jeter list. The parameter list is | 
lin STATIC if file constant, WORK- | 
|SPACE if file parameter | 
|Establishes the record dope vector | 
| (RDV) for the triple operand and | 
{places the address in the second | 
{slot of the parameter list unless | 
|the operand of the INTO triple is | 
| 
| 
| 
| 


——— — — — —À — —À — — w — mm a 


INTFRM 


|^ varying string, in which case it 
lplaces the address of the string 

|dope vector of the operand in the 
|second slot in the parameter list. 
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| 

| 
ļ----------------------------------- ł--------------- 4 

| 

| 

| 

| 


4 
| 


fi — ne — — 


——— — —À A — — a es e — i E — — —— —À— — ee 


ZLOADW (AA), SCINIT (LA), SC1 (LA) 


TXTEST 


SC3 (LA), TXTEST, SCANO1, CMPERR 
TXTERR, ZABORT (AA) 


TXTARG, DYNMPL, LAONLY, SIDROP, 
CMPERR, TXTERR, WRKSPC, MVPSCD, 
ZTXIRF (LA), SYMREG, MV3 (LA) 


|TXTARG, CMPERR, DYNMPL, LAONLY, 
|STDKOP, LAOSMZ, CRDV, TXTERR, 


ZABORT (AA), WRKSPC, MVPSCD, TXTRF, 
SYMHEG, ZDRFAB (AA), CALLIB, 

ZDICRF (AA), REFRDV, SCALAR, 
PNTRDR, BSDRDV 


— m ae vn — — —À— e —— — — mp — A — — — — — — — — — — — — — E — — —— — — ml 


Table NJ. 


Phase NJ Pseudo-Code RECORD I/O 


(cont'd) 


| [Main Processing] 


| Statement or Operaticn Type | 


|Processes the 
{LOCATE triple 
|RDV for the triple operand and 
|placing this address in the second 
|slot of the parameter list. It 
jestablishes the pointer qualifier 
jof the based variable and saves 
|this, either to be used, or tc be 
loverwritten by the operand of a SET 


operand of the | 
| 

| 

| 

| 

| 

| 

| 

| 

|triple. It establishes a compiler | 
| 

| 

| 

| 

| 

| 

| 

| 


by establishing the 


{label and puts this in the third 
[slot of the parameter list in order 
|to tell the library where to 
(return, so that code assigning the 
[pointer value returned in the RDV 
|to the saved pointer operand is 
lavoided. It then initializes the 
[based variables just allocated 


| Processes KEYTO option of RECORD- | 
[oriented I/O by verifying that its | 
jargument is a character string, | 
{then placing it in the appropriate | 
jparameter list slot, wnich may be | 
jin STATIC or WORKSPACE | 


|Processes the KEY or KEYFROM option| 
lof RECORD-oriented I/C by | 
[converting the argument to a char- | 
lacter string if it is not already al 
[character string and placing the | 
[result in the appropriate parameter | 
jlist slot; this is either in STATIC] 
Jor WORKSPACE | 


+ 
|Processes the IGNORE option of | 
|RECORD-oriented I/O by first | 
|checking that the argument is a | 
|scalar and then converting to a | 
|binary fixed integer if it is not | 
[already a binary fixed integer. | 
|The address of the argument is | 
Jplaced in the appropriate parameter | 
Jlist slot in STATIC cr WORKSPACE | 
o ee + 
{Processes the event option of | 
| RECORD-oriented I/O by checking | 
|that the argument is a scalar EVENT| 
[variable and placing its address in| 
|the appropriate parameter list | 
|slot. The parameter list is either | 
fin STATIC or WORKSPACE, depending | 
jupon the storage class of the argu-| 
ment. | 


Routine 


LOCOPT 


—— ooo — zou — a — — — — 


KYTOPT 


em — — — l E — — mi — san — — — — 


KEYOPT 


IGNOPT 


Section 3: 


| TX" ARG, 
| LOCRDV, 
| 


|TXTARG, 
[STDKOP, 
ILV), 


| MVPSCD, 


| TXTARG, 
| STDROP, 


(Lui, LAOSM1, 


| TXTARG, 
| LAONLY, 
|MVTRPL, 
[CMPERR, 
| WRKSPC, 


-j  — —— = 


|TXTARG, 
| NXTMPD, 
|MVPSCD, 
| MV3 


LACSM2, 
|ZDAFAB (AA), 


(LA) 


ZDICRE, 
CMPERR 


SCALAR, 
NX'IMPD, 


SCALAR, 
NXTMPD, 


SCALAR, 
STDROP, 
LAOSM1, 
TMPREF, 
SYMREG, 


DYNMPL, 
TMPREF, 
ZTXTRF 


LAOSM1, 
SC5 (LA), 
MV3 (IA), 


LAOSM2, 


(LA), 


A — — — — — — ame PP — — — — — — — — e an mm — — — — — 


PNTRDR, SCALAR, 


DYNMPI, 
ZSTUT2 
TATERR, 
WRKSPC, 
SYMREG 


LAONLY, 


DYNMPL, 
ZSTUT1 
TMPSEL, 


LAONLY, 


——— —À — — — — — — — — — — — — a mm — — — — — a — — — mm — mm — — —— 


CINTEG, DYNMPL, 
MVPSCD, WRKSPC, 
ZDRFAP (AA), 
NXTMPD, MV3A (LA) 
MV3 (LA) 


LAONLY, STDROP, 
TXTERR, WRKSPC, 
SYMREF, 


Charts and Routine Directories 


(STRUT2 in 


(STRUT1 in 
TXTERR 


„l ——À ën ve mg, pen al —— mt kw ui — MÀ — —— — E — — — — men — — — a — — — 


| 
l 
| 
| 
| 
| 
| 
| 
1 
| 
| 
| 
| 
| 
| 
| 
| 
| 
1 
| 
| 
| 
| 
| 
| 
| 
| 
| 
J 
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Table NJ.Phase NJ Pseudo-Code RECORD 


I/O (cont'd) 


| |Main Processing| | 


| Statement or Operation Type | 


|Processes the pointer operand of a | 
{SET triple. If part of a READ | 
[statement, the address of the poin-] 
|ter variable is placed in the sec- | 
fond slot of the parameter list. If] 
(part of a LOCATE statement, the | 
|pointer operand overwrites the | 
|pointer taken from the based varia- | 
{ble in the LOCATE statement, to be | 
[used in the pointer assignment code| 
[produced by ENDIO. 

|At end of I/O statement, places 
|REQUEST CODE (i.e.  IODEF) in sta- 
{tic constant chain, puts STATIC 
|parameter list in STATIC chain. 
[Creates external Library calling 
[Sequence for RECORD-oriented I/O 
[statement as follows: 


EPRM 

LA 1, PARM.LIST 

L 15, RECORD. 10.LIERARY. ROUT 
BALR 14,15 

EPRM 


{If there is a WORKSPACE parameter 
list, it updates the MVC or param- 
jeter list from STATIC to WCRKSPACE. 
Jit checks whether a LOCATE state- 
[ment is being processed, for which 
lit generates pseudo-code to assign 
|the pointer value from the RDV to 
[the pointer variable and to ini- 
[tialize the REFER variable of a 
|self-defining structure. It gener- 
jates an allocate triple to indicate 
{possible initialization of TASK 
[and/or EVENT variables, and a com- 
|piler label triple to mark the end 
[of initialization code for the 
|library. It generates any SELL 
|triples accumulated throughout the 
[statement on SELL chain. It can- 
|cels the RECORD-oriented 1/0 option 
[triple codes from the SCAN TRT 
linterest table. It gets the next 
|triple of interest and goes to 
|NUSTAT to process as a new state- 

| ment. 


Il ——————————————————————————————————————-L— 
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Routine 


SETCPT 


| TXTARG, SCALAR, NXTMPD, DYNMPL, 
| TMPREF, STDROP, TXTERR 


—— — — — — —À —À — — —À LL M mn n — — m — — om — | 


IZDICRF (AA), LAONLY, LAOSM1, 
ICALLIB, MVPSCD, ZTXTAE (AA), 
|SC3 (LA) SYMREG, TMPREF, 
|ZDRFAB, MVTRPL, RCBCMN 


SELL, 


Li 


— — — == — — n AA 











EB—————————— ma a men ae — —À wen ana — men a a— —À — MÀ e a] — ouve men anm — an 


Table NJ. Phase NJ Pseudo-Code RECORD I/O (cont'd) 


[USCIRE III E RN Iq Tey NO D MEC OS E ec eps ed mE CE 1 

|Main Processing] | 
| Statement or Operation Type | Routine | Subroutines Used | 
A Dep E SN a a kl NO A P E NU ki 4 
{Indicates presence of NOLOCK | NLKOPT | None | 
|option. i | | | 
PUE Rut EA TR SNR A E A A A A A RP e Dan 4 
|Delete the SELL triple encountered |SELL routine |ZDRFAB (AA), MV3A (LA) | 
|during scan of RECORD-oriented lat SVSELL or | | 
[I/O statement but puts dictionary |TMPSELL entry | | 
[reference in the SELL chain so that |point | | 
| SELL triple can be regenerated at | | | 
jend of I/O statement | | | 
RE —— Hd 
¡At end of program, releases own | PRGEND | RLSCTL | 
[modules and turns control over to | | | 
{next requested phase. | | | 
be Seine Ee Lisa Sa elas erat A O O RI A A AN J 
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eTable NJ1. 


EE 


Phase NJ Routine/Subroutine Directory 


Function | 


Duces M EDU AA EE unie a he aaa age ii arid -------- 1 
| BSDRDV (NK) 


CALLIB 


CINTEG 


CMPERR 


CRDV (NK) 


DEFER 


DELETE 


DINMEL 


KYTOPT 


LAOSM1 


LAOSM2 
MVPSCD 


l 
l 
| 
| 
| 
| 
| 
| 
| 
l 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| FILOPT 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
l 
| 
| 
| 
| 
| 
| MVTRPL 
| 
| 
| 


NLKOPT 
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(NK) 


(NK) 


(NK) 


(NK) 


(NK) 


(NK) 


(NK) 


|Entry point to CRDV routine which marks it as processing a based 
[variable in an INTO or FROM option. 
| 

[Creates pseudo-code to call library routine; indicates call in dic- 
{tionary if not previously noted. 


[Checks whether argument is a binary fixed integer. 


| 

| 

| 

| 

| 

| 

| 

| | 
|Indicates compiler error and ABORT, error code in HOLD register. | 
| | 
[Constructs a record dope vector (RDV) entry in WORKSPACE. If the | 
|dope vector descriptor bit is on, then the routine generates a | 
jlibrary call to generate the RDV. If the variable has static | 
[extents and is not a string, the RDV is constructed fron information| 
lin the RDV dictionary entry. If the variable is a string, then the | 
| 

| 

| 

| 

l 

| 

| 

| 

| 

| 

| 


{RDV is constructed from its string dope vector. 


JIndicates compiler error in the case of a deferred feature not 
|detected by earlier phase. 


| 
[Establishes DELETE code as REQUEST CODE. 
| 
|Establishes a parameter list in workspace if one is not already 
Jestablished. Calculates workspace offset to particular slot 

| requested. Establishes a symbolic working register. Establishes 
[Skeleton pseudo-code for LA, ST, and DROP of register into workspace 
loffset. | 
| 


| 
[Handles operations at end of I/O statement. ] 
| 
| 


|Processes EVENT option. 


|Processes FILE option. 


[Processes IGNORE option. 


| 
|Processes INIO/FROM option. 


| 
|Processes KEY or KEYFROM option. 


| 
[Outputs pseudo-code for LA into symbolic work register of a dic- 
{tionary reference without any offset modifiers. 

| 
[Entry point to CRDV routine which marks it as processing a based 
[variable of a LOCATE statement. 

| 


[Processes KEYTO option. 


(Not implemented in second version.) 








| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
lEstablishes pseudo-code for a LA instruction into a symbolic work | 
|register with the address of WORKSPACE and a literal offset which is] 
jpointed to the argument register. | 
| | 
{Generates LA pseudo-code in which both base and offset are in reg- | 
listers. | 
| 
| 
| 
| 
| 
| 
| 
| 
J 


[Puts pseudo-code assembled in pseudo-code area into output text 
| block. 
| 


|invokes SCAN utility to move generated triples into output text 
| block. 


[Indicates presence of NOLOCK option. 


e Table NI), 


Phase.NJ Routine/Subroutine Directory (cont'd) 


EE " 
| Routine/S subroutine] Function | 
E T A E AI E X cc Kr 4 
| NUSTAT [Handles operations at start of new statement. | 

| | 
| NXTMPD {Invokes SCAN utility to get next triple, which is checked to see if | 
| lit is a TMPD; if not, it is an error. | 
| | 
| PNTRDR |Establishes the seven-byte pointer information slot in a BASED vari-| 
| lable dicticnary entry. | 
| | | 
| PRGEND [Releases control to next phase at end of program. | 
| | | 
| RCBCMN [Commons the dictionary entries of request code blocks. | 
| | | 
| READ |Establishes READ code as REQUEST CODE; establishes parameter list | 
| |size. | 
| | | 
| REFRDV (NK) |Establishes the address of the RDV dictionary entry in the ARG reg- | 
| jister when given the data variable dictionary address in INDx1. | 
| | | 
| REWRIT |Establishes REWRITE code as REQUEST CODE. | 
| | | 
| SCALAR {Confirms that dictionary code byte refers to scalar item; ascertains| 
| [whether item is a constant. | 
| l | 
| SCANO1 Jindicates compiler error in the case of a deferred feature not | 
| [detected during Read-In. | 
| l | 
[ SCNOPT {Gets next triple of interest, branches to appropriate routine. | 
| | | 
| SCRHOP [Searches options, inserts RECORD-oriented I/O option entries into | 
| {SCAN TRT interest table. | 
| l | 
[SELL (NK) |Generates SELL triples for all dictionary references in the SELL | 
| | chain. | 
| | | 
| STDROP (NK) jOutputs pseudo-code to ST contents of symbolic work register into | 
| [parameter list slot in workspace set up by DYNMPL, and the drop of | 
| |the syrbolic register. | 
| | | 
| STRTNJ {Initializes phase. | 
| | 
|SYMREG (NK) {Establishes symbolic work register. | 
| | | 
| TMPREF (NK) |Generates the appropriate LA pseudo-code to load the address of the | 
| [temporary described by TMPD. | 
| | 
| TMPSEL (NK) |Adds temporary entry to SELL chain for generation of SELL triple | 
| [upon completion. | 
| | | 
| TXTARG |Processes second argument of triple. If dicticnary reference, esta-| 
| jblishes absolute address in INDX1. Returns to LR if zero, i.e., | 
| |TEMP, LR+4 if dictionary reference. If null, indicates compiler | 
| |error. | 
| on | 
| TXTERR |Writes error message. | 
| | 
| TXTEST [Convexts function code of triple interest TRT table to internal key, | 
| land invokes PRGEND if end of program is indicated. | 
| | 
| UNLOCK [Establishes UNLOCK code as REQUEST CODE, (Not implemented in second| 
| | version.) | 
| | 
[WRITE |Establishes WRITE code as REQUEST CODE. | 
| | 
|WRKSPC (NK) |Establishes the requested workspace area, Starting on fullword | 
| | boundary. | 
Gh So el e De RAN A AI a n e a m 4 
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Table NM. Phase NM Pseudc-Code Executable I/O 


(oe ee ee Enc AS prc ee ee A SPE ER Oe IS DES 1 
|Main Processina| | 
| Statement or Operation Type | Routine | Subroutines Used | 
| -----------------------------------}--------------- }----------------------------------- { 
|Processes GET and PUT statements |GET |INSERT, STORAD, INSTFL, GENPC, | 
| | | GENTR, MVTRSP, ENDLST, CALIB, | 
| | |CHAR, INTEG, UTTMPW, SRCERR, | 
| | [SCAN (LA), STRUT1 (LV), STRUT2 (LV) | 
p--------------------2-2-2-2-2-2---2--2-2-2-2-2-24j------2---2-2-----|------------2.-.------.---------------- 
|Processes OPEN and CLOSE statements |OPEN | INSERT, STORAD, INSTFL, GENPC | 
| | | GENTR, MVTRSP, ENDLST, CALIE, | 
| | ICHAR, INTEG, UTTMPW, SRCERR, | 
| | oe (LA), STRUT1 (LV), STRUT2 ED 
Loc cl ncc cuc hist e E KEP AE CE bee ———— — ———Á——  ——— 
Table NM1. Phase NM Routine/Subroutine Directory 
De rr cS Nc ER E ci ae ln kk a a 
| Routine/Subroutine| Function | 
}------------------ }-------------------------------------------------------------------- { 
[CALIB (NN) [Generates part of calling sequence and makes dicticnary entry for | 
| |Library routine. | 
| | 
|CHAR (NN) |Converts a given argument to character string. | 
| | | 
|ENDLST (NN) [Completes parameter list and makes dictionary entry for it. | 
| | 
|GENPC (NN) |Moves pseudo-code to output. | 
| | | 
|GENTR (NN) |Moves generated triples to output. | 
| | | 
|GET | Processes GET and PUT statements. | 
| | | 
|GETOO |initializes switches for GET/PUT. | 
| | 
| GET20 |PAGE option. | 
| | | 
| GET85 {Processes end of I/O statement. | 
| | 
{INSERT (NN) |Inserts dictionary reference in parameter list. | 
| | 
JINSTFL (NN) |Inserts file reference in parameter list. | 
| | | 
|INTEG (NN) [Converts a given argument to integer. | 
| | 
(MVTRSP (NN) |Moves data and format list triples to output. | 
| | | 
| NMR1 |Begins scan for triples of interest. | 
| | | 
| OPEN [Processes OPEN and CLOSE statements. | 
| | | 
| OPENOO |Initializes switches for OPEN/CLOSE. | 
| | | 
| SRCERR (NN) |Makes error dictionary entry. | 
| | | 
|STORAD (NN) |Generates pseudo-code to store symbolic register in parameter list. | 
| | 
| UTTMPW (NN) JObtains temporary workspace. | 
AA ër A A ——á————————————— —À— J 
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Table NT. Phase NT Pseudo-Code Data and Format 
frp eo aR UM ng ee D ie e LANE a Hic xx ECCL M Ed 1 
| [Main Processing] | 
| Statement or Operaticn Type | Routine | Subroutines Used | 
----------------------------------- ł---------------ł-----------------------------------{ 
|Initializes phase, obtains scratch |NTOOOO | None | 
| storage | | | 
----------------------------------- ł---------------ł-----------------------------------{ 
|Scans text | NTOOO3 INTOO11, NTOO14, NTOO17, NTOO21, | 
| | JNTOO23, NTOO24, SC2 (LA) | 
~---------------+------------------ }---------------}-----------------------------------4 
{Collects remote format items and INTOO11 | None | 
[Saves until end of block | | | 
E Ai EE A emu iE cucine mere iue 1 
{Associates remote format items with|NT0014 | NIUT10 | 
[data list items | | l 
po ro a fire ł----------------------------------- 1 
|Makes entries for Library routines |NT0017 | NTUT20 | 
[required for EDIT-directed I/O and | d | 
[copies skeletons for phase NU into | | | 
{scratch storage, then releases | | | 
|phase l | | 
"~~--~-------------------+--------- $--------------- $----------------------------------- 1 
|identifies type of data list item |NTOO21 | None | 
land enters the type code in a list | l | 
| ----------------~---~--------------}--------------- ł----------------------------------- 1 
[Associates format and data list | NTOO23 | NTUT10 | 
litems and marks INCLUDE matrix | | | 
----------------------------------- ł---------------}-----------------------------------] 
|identifies type of format list item|NT0024 | None | 
|and enters the type code in a list | | | 
(E }---------------4-----------------------------------4 
|Sets bits in INCLUDE matrix to | NTUT10 | None | 
[represent STREAM I/O conversion | | | 
[requirements at execution time | | | 
EN ł---------------ł-----------------------------------4 
{Makes dictionary entry for Library |NTUT20 | None | 
| Routine | | | 
A E IN eee nora dass Ss a a a I eer E cq J 
Table NT1. Phase NT Routine/Subroutine Directory 
poe qe come veu oe rent EE 1 
[Routine/Subroutine| Function | 
DET ERES RETURN MONIS Tc cR det NN kék de kas Se ee | 
| NTOOOO [Initializes phase, obtains scratch storage. | 
| | 
INT0001 |Initializes phase address slots. | 
| | | 
| NTOO03 [Scans text. | 
| | 
|NTOO11 |Collects remote format items. | 
| | | 
INT0014 |Associates remote format items with data list items. | 
| | | 
[NTOO17 [Makes entries for Library routines for EDIT-directed I/O. | 
| | | 
INT0021 |Identifies types of data list items. | 
| | | 
| NTOO23 {Associates format and data list items. | 
| | 
|NTOO2U |Identifies types of format list items. | 
| | 
| NT1700 |No EDIT-directed I/C, therefore no scan pass. | 
| | | 
INTUT10 {Sets bits in INCLUDE matrix. | 
| | 
| NTUT20 [Makes dictionary entry for Library routine | 
lose eebe Lamosa A A A E pa a a a a ad ia E J 
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Table NU. 


| Statement or Operation Type | 


Phase NU Pseudo-Code Data and Format Lists 


[Main Processing| | 
Routine | 


~----------------------------------}+-------------- ł-----------------------------------{ 
{Generate Library calling sequences |NU0022 | INSERT, UT24,UT11,UT23 | 
¡for data items in DATA-directed I/O| | [ 
|statements | | | 
}----------------------------------- +--------------- }----------------------------------- 4 
[Generate Library calling sequences |NU0023 |INSERT,UT11,UT25,UT14,UT23,UTO09 | 
for data items in LIST-directed I/O] | | 
| statements | | | 
|~---------------------------------- }--------------- }----------------------------------- 1 
[Generate code for data items in |NU0024 [UTO9,14 | 
|EDIT-directed I/O statements | | | 
~---------------------------------- }---------------}-----------------------------------| 
[Scan text [NU0002 | SC1 (LA) ,SC2 (LA) ,SC3 (LA) | 
~---------------------------------- door a roi 
|Generate Library calling sequences |NUOO29,NUOO30 |UT15,UT18,ECDCNV,UT10 | 
|for format list items [NUOO33,NU0037, | | 
| |NU0050 | | 
ee Loc eee Ee er BNO p C J 
Table NU1. Phase NU Routine/Subroutine Directory 
ci ra bn cR RR EN pic I LC E c MM KM dE CEDE CM RM EVE 1 
| Routine/Subroutine| Function | 
~--~-------------- ł--------------------------------------------------------------—------4 
| BCDCNV (NV) ¡Convert decimal constant to binary. | 
| | | 
| INSERT |Add an entry to an argument list. | 
| | | 
[NUOO02 (NV) [Scan text. | 
| | | 
| NU0022 [Generate Library calling sequence for DATA-directed data list item. | 
| | | 
|NUOO23 |Generate Library calling sequence for LIST-directed data list item. | 
| | | 
[NUOO24 (NV) [Generate cards for EDIT-directed data list item. | 
| | | 
[NUOO29 (NV) |Senerate Library call for A or E format item. | 
| | | 
[NUOO30 (NV) [Generate Library call for E or F format item. | 
| | | 
[NUOO33 (NV) [Generate code for R format item. | 
| | | 
[NUOO37 (NV) {Generate Library call for P format item. | 
| | 
[NUOO50 (NV) [Generate Library call for X, PAGE, SKIP, LINE, C, or COLUMN format | 
| litem. | 
| | . | | | 
| UTO9 (Make dictionary entry for constant in EDIT or LIST list. | 
| | | 
| 0110 [Convert a constant entry to one of specified type. | 
| | | 
| UT11 |Generate Library calling sequence passing argument list. | 
| | | 
|UT14 |Generate code for intermediate result items in EDIT and LIST data | 
| [lists. | 
| | mu | 
|UT15 [Make dictionary entry for FED or DED. | 
| | | 
|UT18 (NV) [Generate an assignment triple. | 
| | | 
| UT23 {Generate Library call code. | 
| | l 
| 0724 [Construct symbol table dictionary entry. | 
| | | 
| UT25 [Set bit in the INCLUDE matrix. | 
A e uM ani EE PE a n nt a c CEDE TN J 


Table OB. Phase OB Pseudo-Code Comp 


| Statement or Operation Type 

— — I Ó a ewe suos m a eres 
[Scans text for BUY, BUY ASSIGN 
Statements and compiler function 
land compiler pseudo-variakles (see 
{Appendix D.8), and transfers to 
lappropriate routine 


| (Appendix D.8) by pseudo-code move 
[character instructions, adjusting 
[the target field to controlled or 
|temporary type 2 workspace where 
[necessary 

|Replaces ADV compiler functions 

| (Appendix D.8) by pseudo-code 
linstructions to load specified 
Jelement of a dope vector into a 
[register 

|Replaces SDV compiler functions 

| (Appendix D.8) by instructions to 
{load the maximum lenath from a 
[string dope vector into a register 


|Replaces compiler pseudo-variable 
|triples and compiler assignment 
[triples by pseudo-code instructions 
|which store the value assigned in 
specified part of dope vector 


[Remove BUY, BUY ASSIGN, and SELL 

| Statements for scalar non- 
ladjustable temporary variables from 
|the text, and allocate storage in 
ithe pseudo-code workspace for the 

| temporaries 

[Generates code to drop a symbolic 
|register, or mark a literal 
|register not wanted 


|Determines whether the target dic- 
|tionary reference of MTF function, 
jor ADV or SDV pseudo-variakle is 
[controlled or a temporary type 2. 
{If it is, the dictionary reference 
lis replaced by the dictionary ref- 
|erence of the controlled or tem- 
|porary type 2 workspace, with the 
lappropriate offset, if the target 
lis a structure base element 

[Stack and unstack the information 
[specifying the target field of 


{Calculates the offset of the dope 
|vector of a structure base element 
[from the start of the structure 
|dope vector 

(place triples from the source text 
lin an internal buffer. 


iler Functions 


Main Processing 
Routine 


STACK, USTACK 


Section 3: 


| Subroutines Used 


SCAN (LA) 


ena zm n — — — — — — — — — — — — ee — — — — — ee mp 


BUFIZE, FRSTOP, SC3 (LA) 


| BUFIZE, 
| DROPRG, 


STACK, 
USTACK, 


MV3A (LA), 
SC5 (LA) 


Charts and Routine Directories 


n  — —— — — —— can — a an a e e AM ane mm mm n n e. a a — — vm 


FRSTOP, 


Table OB1. Phase OB Routine/Subroutine Directory 


eS m oe i aaa NE ccu ede SÓ OS 1 
|Routine/Subroutine| Function | 


| ADVR |Replaces ADV compiler functions ky pseudo-code instructions to load 
| |the specified element of a dope vector into a register. 


| AT7 |Generates pseudo-code. 

Ve da operand by workspace reference. 

| BUFIZE oe triples from the source text in an internal buffer. 

ee NR length of string. 

| BY19 Kate string temporary (dope vector only). 

| DROPRG eege code to drop a symbolic register or mark a literal reg- 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| |ister not wanted. | 
| | 

FRSTOP [Replaces the target field of MTF function or compiler pseudo- | 
|variable by controlled workspace where necessary. | 

| | 

MTFR {Replaces MTF compiler functions by pseudo-code move character | 
instructions. | 

| | 

SDVR {Replaces SDV compiler functions by pseudo-code instructicns to load | 
|the maximum string length into an object register. | 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

J 


SETDVF |Calculates the offset from the start of a structure dope vector to 
| the dope vector of a particular base element. 


|pseudo-variable assignment. 
| 
STI [Scans text for BUY and BUY ASSIGN statements, compiler functions, 
land compiler pseudo-variables. 
| 
STA, ST6 {Replaces compiler pseudo-variables and compiler assignment triples 
[by pseudo code instructions to set the assigned expressicn, convert- 
Jed if necessary in the specified part of a dope vector. 
| 
ST7,ST8,ST10 [Remove BUY, BUY ASSIGN, and SELL statements for fixed scalars from 
|the text, and allocate space for the temporary variables in the 
| pseudo-code workspace. 
Est SAA EN A A A A O AA O me 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| | 
| STACK/USTACK [Stack and unstack information specifying target field of compiler 
| 
| 
{ 
| 
| 
| 
| 
| 
| 
| 
| 
| 
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eTable OD. Phase OD Pseudo-Code Assignment 


sword CM EC RI a ee S MEE A E A a ep et E E ene 1 
| [Main Processing | | 
| Statement or Operation Type | Routine | Subroutines Used | 
ļ------------------------- ----------- ł--------------- ł----------------------------------- 1 
|Get block of scratch core | SCRCOR | None | 
A cat ES ---4e-2-2-2-22-2-4j---------222222j--------2-2-222-2--------2--2-2----22-2---] 
| [Move routines, constants and tables|MOVTAB | None [ 
| |to block | | | 
AN TE PIE Fe Re Sire T DNE m ret ee DER RR TES De —À———À— —— PM—— án Ru 4 


eTable OD1. Phase OD Routine/Subroutine Directory 


EE chal dU E SS E BS qe O eee DIEI TEC cUm me sop us 1 

| Routine/Subroutine| Function | 
A im ae a A ee ee ee ee =~ | 
SCRCOR JObtains klock of scratch core. | 

| | 

| | MOVTAB [Moves routines, tables and constants into scratch core. | 
Ls eo A cassius A ol eer ere E a eee M a i c Ce LUE J 
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Table OE. Phase OE 


ER T 

| [Main Processing | 

| Statement or Operaticn Type | Routine | Subroutines Used 

|-----------------------------------}--------------- }----------------------------- 

[Generates pseudo-code for assign-  |ASS00 |ASCOO, ASCDOO, ASDROP 

[ment triples | | 

|----------------------------------- +--------------- 4 ----------------------------- 

|Generates Library calling sequences|ALLOC, FREE, | CALIB 

|for ALLOCATE, FREE, BUY, and SELL  |BUY, or SELL | 

| triples | | 

gl ci ee m ene eL Ll We ROTE (UNE a en pe A we e aie 
eTable OE1. Phase OF Routine/Subroutine Directory 

Be an ee NS ee ee E n NA Dè y ene Se ae eeu 1 

|Routine/Subroutine| Function 

Rx eL aL LE Be a A EE EE EE EE EE 

|ALLOC (OF) |Processes ALLOCATE triples. 

| | 

|ASCOO [Inserts target types for constants. 

| 

| ASCDOO |Controls assignment of real and complex data. 

| 
| ASDROP ¡Drops symbolic registers. 
| ASFBOO Generates code for fixed binary assignments. 


| 
|ASFDOO (OF) 


sees 
Ge 

| ASPO00 

| ASAROO 
m 
Gees 
Keesen (OF) 
m (OF) 
|CALIB (OF) 
Gegen 

| FREE (OF) 
| GENCNV 
MERE MA 
ene 
eeng 
UNES 

| SBGTNR 
[SELL (OF) 


| SPASS (OF) 
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Pseudc-Code Assignment 


Generates code for fixed decimal assignments. 

Generates code for floating-point assignments. 

Generates code for label assignments. 

Generates code for pointer/offset assignment. 

Generates library calling sequence for area assignment. 
Processes assignment triples. 

Tests for special assignment triple. 

Generates code for string and numeric field assignments. 


Processes BUY triples. 


Enables for SIZE prefix option. 
Processes FREE triples. 

Generates convert macro instruction. 
Generates RX instruction. 

Generates SS instruction. 

Obtains operand description. 

Removes index from operand. 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
l 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
|Generates Library calling sequences. 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
{Obtains next symbolic register. 
| 
| 
| 
| 
L 
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Table OG. Phase OG Library Calling Sequences 


puru ae EC pou EU eee QUU GT DEAE DE 1 

|Main Processing] | 
| Statement or Operation Type | Routine | Subroutines Used | 
fo O Keim IER es 
{Scans triples and takes action on  |TRSCAN | EOBIN, TSCSNO, TSCCLE, TSCPRC, FMTOO1, | 
{their values | |TSCEOP,TSCEP2,JSCJMP,MOVITM,MOVOUT | 
PRS oe A mM dee NEP re ee ree ee eae aa a eee ene EE 1 
[Scans pseudo-code deleting IGNORE  |PCSCAN | CNVEND, MOVITM, MOVOUT | 
litems and detecting CCNVERT items | | | 
| -----------------------------------}--------------- Por { 
{Examines fields of CONVERT, and | TEMOH |[MJG201,IEMCI,CODCAL | 


[determines whether the conversion | | | 
lis to be done in-line | | { 


~---------------------------------- ———— ———Á—— E 
|Generates Library callina sequence |MJG201 [MJ6G203,MJG204,MJG298 | 
ļ----------------------------- ------ d--------------- n— ——— n——— 1 
[Generates in-line code for selected|IEMOI | BITCDL, FDTOFB, FIBFLT,DECFLT,PICHAR | 
| conversions | | | 
Enc mdr a ad s dla cce ud Ki Sé a a a ts J 
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Table OG1. Phase OG Routine/Subroutine Directory 


|Routine/Subroutine| ^ Function 1 
(oan — 5 5 5 EE dr Duo Bii duele EE 
| TSCSNO Wee SN, SN2, and SL triples. | 
AA A CL triples. | 
ooo nose PROC, PROC*, BEGIN, and BEGIN* triples, and sets up T 
| |for work space requirements. | 
Eegen PW the workspace requirements for FORMAT and FORMAT LIST. | 
ms ee EOP triple. | 
SERE ee EOP2 triples and terminates phase. | 
Veit ee a JUMP triple is found the routine sets up a counting ia 
| [and enters PCSCAN. | 
laor ieee from input an item which spans blocks. | 
dea TON an item to the output block. | 
fore ae a CONVERT is found passes control to IEMOH and outputs pseudc- | 
| |code generated on return. | 
a (OH) (kite pseudo-code to call the Litrary conversion package. | 
I OBERE (OH) oe a DED generates a code byte used by the in-line conversions. | 
eae (OH) sta pseudo-code to point registers at data. | 
GE (OH) [Generates pseudo-code to call Library conversion module. | 
TT (OH) RT bits in inciude card matrix. | 
E (O1) E in-line code for binary to decimal conversion. | 
EAS (OI) Kee in-line code for decimal to binary conversion. | 
Aken (OT) |Generates in-line code for decimal to float conversion. | 
Ge (OI) Ee in-line code for fixed binary to float conversion. | 
|PICHAR (OL) |Generates in-line code for picture to character string conversion. | 
———— ——— i: — —— e —— —! t !—À———— N———— ra o qp pM CU E 4 


274 


Table OM. Phase OM In-line Data Conversions 


am — a — men op — a Gan ann «ns a «nt we kan d San du eu — e a m rm M a ee e an 


pure RA AA EE qo eee EE Fi xo mecs E A DES 1 
|Main Processing | | 
| Statement or Operation Type | Routine | Subroutines Used | 
AN MEN DM ER AN ARA AAA AA y 
[Scans text for CNVC macros | TEXTSC ¡None | 
}~---------------------------------- d--------------- }----------------------------------- { 
|Passes control to code generation  |CNVCDE | PACK, UNPACK, EDIT, EDMK | 
|routines | | | 
EE le ete O AA A oe ee n e are J 
Table OM1. Phase OM Routine/Subroutine Directory 
SE DA ee E EE YO ecg rer DAN on NA a n DON eee a t 1 
| Routine/Subroutine| Function | 
po nn noon tot  — — d —  À— 1 
| CNVCDE [Passes control to the in-line code generation routines. | 
| 
| EDIT |Generates conversion code, based on the ED instruction, for FIXED | 
| [DEC to PICTURE conversion which includes punctuation and/or zero | 
| | suppression. | 
| | | 
| EDMK {Generates conversion code, based on the EDMK instructicn, for FIXED | 
| [DEC to PICTURE conversion which includes a drifting sign. | 
| | 
[PACK (ON) {Generates conversion code, based on the PACK instruction, for | 
| | PICTURE to FIXED DEC conversion when the picture contains only 9's | 
| land V, and has only external sign or edit characters. | 
| | | 
| PINGEN |Generates the editing constant or mask used by the ED or ECMK in- | 
| Jline instructions. | 
| | | 
| TEXTSC [Scans text for CNVC macros. | 
| | | 
|UNPACK (ON) |Generates conversion code, based on the UNPK instruction, for FIXED | 
| |DEC to PICTURE containing only 9's and V, and with only external | 
| [sign or edit characters. | 
A CCS O O e eee J 
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e Table OP. 


Phase OP Further In-line Conversions 


O a DEPT DUE TIENS ENEE VEER 1 
| l [Main Processing | | 
| Statement or Operation Type | Routine | Subroutines Used | 

—————— E VE 1 
|Initialize and perform test scan to|TEXTSC |CNVCDE | 
|search for convert macros | | | 
ļ-----------------------------------ł---------------ł----------------------- -= | 
|Examine convert macro and select | CNVCDE | BNTOBT, PTTCEN,FLTOBN | 
[routine to generate in-line code | | | 
bee Seek ee ee ee eee eee eee E Do A A A A Sea eee J 


e Table OP1. Phase OP 


aa aaa ia T 
| 


Routine/Subroutine 


Routine/Subroutine Directory 


| Function | 


A Lace ee eee mn $ A e nn NEE + +--+ =. 
| BNTOBT [Generate in-line code for conversion from fixed binary to hit strina| 
| | | 
| BTTOBN [Generate in-line code for conversion from bit string to fixed binary| 

| | 
| FLTOBN |Generate in-line code for conversion from float binary to fixed | 
| [binary | 
pO EE TM Iu cU hal O ens a A ud uc eae eae J 
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Table OS. Phase OS Constant Conversions 


IHEVFC (OT) 


IHEVFD (OT) 


{Converts long floating-point number to floating-point variable. 

| 

|Converts fixed point binary integer with scale factor to long preci- 
|sion floating-point intermediate. 

| 

[Converts floating-point number of specified precision floating- 

| point. 


[UU PSS Ses Sere St Me EU SS TSS SSH D E eg gt A a pon aa Sit ee 1 
| [Main Processing | | 
| Statement or Operaticn Type | Routine | Subroutines Used | 
|~-------~------~-------------------}-------- ------- }----------------------------------- 1 
[Scans constants chain for double |SCAN1 |POOLSC, SCNO10, STPTST | 
|word constants | | | 
~-~-----~--------------------------- de-------------- +-------------~---------------------- 1 
[Scans constants chain for single | SCAN2 | PCOLSC, SCN010, STPTST | 
[word constants | | | 
| ---------------~---------------~--- }------~--------}----------------------------------- 1 
[Scans constants chain for unaligned|SCAN3 |CONVRT, IADENT, SCNO10, STPTST | 
| constants | | | 
~---------------------------------- }--------------- }----------------------------------- 1 
[Scans through constants chain for |SCAN4 |CONVRT, STPTST | 
lali constants used to initialize | | | 
|STATIC storage | | | 
L (ake ms ro Mud ci MES Cum Eamus dud i m qi C is ium um Mh mm MES CN ERN deu aS Re Ee ree Med em qm eta pr vmi esas em Ges ea am a mm Cep mmm Ren e dim a es m OL QR EE GE cu Gm mS md Gm M cmd van GE QS em EN GU NE AE Gud ee ae Em ME m Mm mn ta EE. 
[Sets up parameter and branches to |CONVRT | ARARD, ARBTD, ARCHD, CHARD, ERROUT, | 
ithe correct conversion routine | |IACCNV, IASTRN, IHEVFA, IHEVFB, 
| | |IHEVFC, IHEVFD, IHEVFE, IHEVKF, | 
| | |IHEVKG, IHEVPA, IHEVPB, IHEVPC, | 
| | |IHEVPD, IHEVPE, IHEVPF, IHEVPG, | 
| | | IHELVPH, UPAA, UPAB, UPEA, UPBE, | 
| | | VSAA, VSCA, VSDA, VSEA, ZEROPT | 
A AEAEE EAE PES ai e PA O SE AA A eet hates J 
Table OS1. Phase OS Routine/Subroutine Directory 
p a a aaa eene aa qoem mm epe a See Se EE EE 1 
jRoutine/Subroutine | Function | 
--------~--------- }-----------~~-~----~-------------------------------------------------{ 
| ARARD [Handles the linking of routines required for any arithmetic to | 
| larithmetic conversions (corresponding Lirrary module IHEDMA). | 
| | | 
| ARBTD |As above for arithmetic to bit conversion (corresponding Library | 
[ |routines IHEDNB). | 
| | | 
| ARCHD [Arithmetic to character (IHEDNC). | 
| | | 
| CHARD [Character to arithmetic (IHEDCN). | 
| | | 
| CONVRT |Sets up parameters and branches to correct conversion routine. | 
| | | 
| ERROUT |Handles the output of error messages for the conversion routines. | 
| | | 
| TACONV {Handles conversion to arithmetic type. | 
l | 
| IADENT {Makes dictionary entry in the constant pool, generating a new con- | 
| {stant pool block if necessary. | 
| | | 
| IASTRN |Handles conversion to string type. | 
| i | 
| IHEVFA (OT) |Converts radix long floating-point binary to packed decimal inter- | 
| |mediate. | 
| | 
|IHEVFB (OT) {Converts long precision floating-point number to fixed binary. | 
| | 
| | 
| | 
| | 
| | 
L | 
|: | 
| | 
L 4 


A EE PER IA 
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Table OS1. 


[7----------------- 
|Routine/Subroutine 


| IHEVKF 


IHEVKG 


IHEVPA 


IHEVPB 


H 
ai 
nj 
< 
"Jg 
Q 


IHEVPD 


IHEVPE 


IHEVPF 


H H 
jwe zu 
Di ki 
< < 
‘J J 
jan Q 


LDCONP 


POOLSC 


SCAN1 


STPTST 


am n seme eee aw menn em aaa» e awa PM cm i A ce «me ma— ee ave « — tu ine te vg wan i ME RE ve es ie es ce ee soap MER Gamers es «twe SEE e ee ee EE ee E ee MEDE eee ME Ma» pe 


UPBA (UPBB) |Produces zero real (imaginary) part for numeric field (IHEUPB). 

VSAA (OT) lase from bit string to bit string (IHEVSA). 

VSCA (OT) deng from character string to character string (IHEVSC). 

VSDA (OT) TEM from character string to bit string (IHEVSD). 

VSEA (OT) ens from character string to pictured character string (IHEVSE). 
ZEROPT Ge a zero real or imaginary part for a constant given in 

TEM PRENNE. aud ld IP 


(OU) 


(OU) 


(OT) 
(OU) 
(OU) 


(OT) 


(OT) 


(OT) 


(OT) 


(OT) 


UPAA (UPAB) 


Phase OS Routine/Subroutine Directory (cont'd) 
DA AAA AAA a Tem dcm emer merece USE em 1 
| 


Function 


————— nnn { 


{Converts packed decimal intermediate to decimal fixed or floating- 
|point numeric field with specified precision. 

| 

|Converts packed decimal intermediate to a sterling numeric field, 
|with specified precision. 

| 


|Converts packed decimal intermediate to long float. 


{Converts packed decimal intermediate to an F format item. 


|Converts packed decimal intermediate to an E format item. 


{Converts packed decimal intermediate to a decimal integer with 
[specified precision and scale factor. 


[Converts an F or E format item to packed decimal intermediate. 


jConverts a decimal integer with specified precision and scale factor 


(ro packed decimal intermediate. 

| 

|Converts binary fixed or floating-point constant to long precision 
|floating-point. 

| 

{Converts bit string constant with up to 31 significant bits, to 
{floating-point with long precision. 

| 

|Points to head of constant chain. 

| 

[Given a converted constant in scratch storage, scans the existing 
|pool for an identical entry. If such an entry is found, the pool 
loffset and dictionary reference of the entry is moved into the dic- 
{tionary entry for the constant. 


[Scans constants chain for double word constants. 


[Scans constants chain for single word constants. 


[Scans constants chain for unaligned constants. 

| 

IScans constants chain for constants used to initialize static stor- 
lage. 

| 

{Controls the calling of the conversion routine CONVRT and pool scan 
|routine POOLSC and, if required, IADENT. 
[constant given in internal form. 


[Checks for the end of the constant chain. 


|Produces zero real (imaginary) part for CAD (corresponding Library 
[module IHEUPA). 


Also handles the case of a 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
l 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


Flowchart 


ogical Phase 


AMOR AZ oo EK 


Storage Ailocation 


Chart 08. 


xtut 
**x1 * 


HANGAR HE 
RO iket * mt 
#ZAEZW HF eo ex#Od * 
#L Im TX o * 
Moe LOE HEE 
7 (000% 
Hee uci 
Eu! ue 
mt ak 
*2! * 
SSrssng 
x 
D 
. 
D 
e 
o 
Me 
hed 
e 
HUA DUT HARAN **atas* xir HERA * 
HIV we Eat o + #ati * *-g * #ui * #DI * co 
Eegen FAH Can HOH * RON * SCH e af *O* cook * + 
# ipm% * (Xüwe * d * * d * * | Cee * i pi D s 
# thot SZ #2008 * t OMe * vO 8 * OLOR E G*0uz* * u + 
* |JACHE # la oe * P mun # fwe * t= së # 1 KEE e Vo C 
# & wo * * cd * *v-2* RUDA eC * HOM *uxuoars * 4I «2 HR 
* oe * *uluwoz-Xz le lect Selasce 4*wt2uc* 3o) ouis D For e * at 
COC o eXIEOELL, WH co 9 o o SE OF UICE eco c o ef LI |o 9 6 OX CX OXCR 0.009 eXEUXQTXK oro 0 OKHECH OF oe ee ep nwe Foxe od # 
* AME * tale ae *ClIlOO-* *-I1oocOo« *2l!c-oe»- te 0 3% e -x7 e *c * 
NOt «Cos Nat ao NN Nas (wt Jeet MOX vo oF NN Z--* N JOU # BEN 
Qe] Ou KÉ Oke low 9 wit Dee H ta colzoze* I p««avx ^ Cate 
#LRC ak * CIA KOR <> SC Y *-—*cCces * HO 39 * «an 
#«1 jwas * €! JODOH Sr) * #w—i * *Otocos *zZivoc»x4 e . 
HA JOER > ALA *2* * *2* * *o* Qux $>% O2* *.* 
RVI IaH PI x #«1 * aa * xe! ce #C1 Ut eo 
tupp $ EEE di ua HN wx SRE RHEE ete x LÀ 


279 


ctories 


e 


Lir 


and Routine 


Charts 


3: 


ion 


Thart PA. 


280 


Phase PA Overall 


logic Diagram 


PADSA 
Ses ean gene EES 
* 


* PICKUP HEAD * 

“OF ENTRY TYPE 14 

d CHAIN = 

ERO t d E E E E 
H 


EE F 


t 
D et. 
. c3 Se 
D e 8 Se 
e .* END *. YES 
. * OF CHA 
. Sy a 
. D D 
e Se ot 
e * NO 
e e 
e e. 
. . 
. e 
. x 
e te, 
MON kok RD Dook “e, 
* * a? fe 
$ NEXT ENTRY ` ze GOR EDURE éi * 
eccccccco fe P 
: TYPE 1 pa ën ` 
MO jo secte edet de w 
H Dy NO 
. e 
. . 
. . 
. e 
; $ 
. ete 
. E3 Se 
D o* IS *. 
. NO wë BLOCK SO "Ge 
eXeoccecceecececececce*« FAR ELIGIBLE + 
. FOR A STATIC 
. *. DSA .* 
. Re .* 
. * YES 
e D 
e . 
. e 
. e 
. . 
e DVSIZE X 
. E ES 
. * SCAN THE * 
e *AUTOMATIC CHAINS 
e * TO CALCULATE * 
. *STORAGE REQUIRD* 
e. *FOR DOPE SAM 
e RARER aka aba iodo 
e E? 
. e 
. . 
. e 
. e 
. . 
D DSASIZE H 
e Kä CU G 2 ki ke ii RE 
. * CALC STORAGE * 
D * FOR VARIABLES * 
. S STRUCTURES AND * 
. * ARRAY * 
e * * 
e Ja ao 
. . 
e . 
. e 
e . 
D D 
lè X 
D 
. E E ER HE 
e * ADO * 
. *STORAGE FOR STO# 
. * DSA WI? TO * 
. : COMPLETE OSA * 
. SIZE * 
a ea GER RR A AA a 
. D 
. . 
e . 
D e 
evcccccoceocveoPXe . 
D D X 
. e at, 
D Aceto p 2 KEKE EEE J3 Me 
" * SET * ef Se 
D * ELIGIBILITY * YES e* IS SIZE 
D * BIT OFF eecececoo*, 512 BYTES at 
D * IN ENTRY e D 
. * TYPE 1 Se .* 
. LE EE ROR EE Key a 
e * NO 
. . 
. . 
e . 
. . 
, DICENT k 
: xo ok ESHER RH ROO Zenk 
. * * * MA ER, STATIC * 
e * CHAIN ENTRY ROSA DICTIONARY * 
ecco * FRON ENTRY *XYooccccecec* NTRY FOR * 
` YPE 1 » : STATIC CHAIN : 
EEES AA 


IN E “AN 


wath 


MHRBECS OE 


ESETET 


“w. NO * Sen, F A M 
dis q at ette XT 8 Fue EL si 


ND "5l laa" iur ME H 
M = Ves HR: OR, 
e GE, 

emake 

+ Ala 

m 
k 


Chart PD. 
Këssen 
*PD * 
* Ais 
kok 
* 
H 
. 
" 
PD X 
Ao ORO A fok lak te tat 
* SCAN TEXT 
* AND bi 
* REVERSE bi 
* SECOND FILE a 
* “BGINTERS... a 
TTT kk TTT 
e 
e 
> 
* 
. 
. 
SCSORT X 
AAA Jon koko koka kok k 
* SCAN STATIC * 
* CHAIN * 
H AND * 
* SORT ENTRIES * 
* (IN PA) # 
RT ET EC TTT E 
. 
. 
. 
a 
yx AX RAE XE RIERA XXXIX] 
. 
* 
STATIC CU "e, MARC 2 A RA Ak kei 
IMG Ze * * 
D TATIC Se YES * ALLOCATE * 
«e INTERNAL e*ooccccos KÉ REQUIRED * 
*,VARTABLE at * STORAGE * 
Me .* * * 
* ¿$ Mak kk ttt ities 
* NO 
e 
. 
. 
y ioorcanoncrarparencianseno 
e 
DVALOC ee e 
DU "e TTT 2 RA kk 
vit DETERMINE * 
af IS A e YES * DV SIZE * 
Ha DOPE VECTOR e*ceoccccoX* AND * 
* REQUIRED e * ALLOCATE * 
e ef * STORAGE * 
ho Sè TTT oru titty rt 
NO 


El He Ac oc RE 2 X ROO do 
«® Se * ALLOCATE * 
ak STATIG *o VES * A 4-BYTE * 
e, EXTERNAL etoeooccoaXt ADDRESS ING 
“e VARIABLE ot * SL 
DN .* * * 
ho ot VOR OR Oo kt kk ok ETI 
* NO 
e 
e 
e 
e 
* 
CONALC X 
PETET A RRR OR A 
*SCAN CONSTANTS * 
* CHAIN AND * 
* RELOGAT * 
* GF tte N * 
*CONSTANT QOL * 
KU TT 
e 
e 
eXocccccccscto 
. H 
. o 
X e 
ORG) eo 
* LJ 
* BUMP LOCATION * D 
* COUNTER BY * . 
pa SIZE OF PANL : D 
ANY kok OO kk o 
H . 
. e 
. . 
. . 
L . 
X . 
e. . 
H1 Me e 
ek ARF Se ad . 
e*THERE. MORE #a YES. 
Ko CONSTANTS e*evce 
Se POOLS at 
*. e 
he ot 
* 
* 
ki 
X 
XO kok 
*PH * 
* Ale 
* $ 
* 


Phase PD Overall Logic Diagram 


* 
D 
. 
e 
A A eeeesne 
* 


ok E 3 AO ooo 


aeoooosoo XT 


3: 


Charts 


and Routine 


281 


Chart PH. Phase PH Overall Logic Diagram 
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Chart QF. Phase QF Overall Logic Diagram 
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Chart QJ. Phase QJ Overall Logic Diagram 
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Chart QU. Phase QU Overall Logic Diagram 
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e Table PA. Phase PA DSAs in STATIC Storage 
pee cr qme me Eee. qur cei: qM UTIQUE a a n 1 


[Main Processing | 


| Statement or Operation Tyre | Routine | Subroutines Used 


[Makes a dictionary entry for each |DICENT | None 


|STATIC DSA 


[Scans STATIC chain for INTERNAL |ARRSCN 
larrays; calculates number of ele- 
|ments for those arrays needing 


Jinitialization. 
|for arrays and, 


[secondary dope vectors 
ace eee Sete s ic 


uM PM IM 
| 


None 


| 
| 
Allocates storage | 
if necessary, for | 

| 


Routine/Subroutine| Function 


}------------------ }--------~----------------------------------------------------------- { 


| ARRSCN 
| 


| DICENT 
|DSASIZ 


| DVSIZE 


290 


|Scans STATIC chain for INTERNAL arrays; allocates storage for arrays 
land secondary dope vectors (called from FH). 


|Makes a dictionary entry for each STATIC DSA. 
l 


[Calculates size of DSA excluding Register Allocator Workspace. 

| 

|Scans AUTOMATIC chain for variables requiring dope vectors, and 
[calculates size of dope vectors. 


| 
{Determines eligibility of a block for a STATIC DSA. 


| 
jSorts STATIC chain (called from PD). 


| 


eTable PD. Phase PD Storage Allocation Static 1 


porcum emm a TIS qur cc TN UTI Up MUI SE 1 
[Main Processing] | 

| Statement or Operation Type | Routine | Subroutines Used | 
Less 1 
|Reverses second file dictionary | PD | NXBLCK | 
|pointers | | | 
ooo nnn nnn ro jr ronn Po ===- 1 
| |Sorts STATIC chain |SCSORT (in PA) |None | 
E E eee io di 
| [Allocates storage for simple, non- |STATIC | SDSA1 | 
|structured, non-external items | | | 
|-----------------------------------}--------------- }----------------------------------- { 
JAllocates dope vectors for all |DVALOC | None | 
[non-external items | | | 
}----------------------~------------}--~------------}~---------------------------------- { 
JAllocates 4-byte addressing slots; |TVALOC | STRCDV | 
[calculates control section size for| | | 
Jall external items | | | 
won nnn nnn nnn nnn nnn enn nn —— — Án! ł----------------------------------- 
[|Allocates storage for constants. | CONALC | None | 
TORT ee LS A A IAE J 


Table PD1. Phase PD Routine/Subroutine Directory 
puede amar ac ea mee ange PTI SA Aaa aaa a alr 1 
| | 


| 

ICONALC ` |Allocates storage for constants. ^ 0 0000000000000 | 
| DVALOC |Allocates dope vectors for all non-external items. | 
ien Werer next text block. | 
on GE text file and reverses second file pointers. | 
| nena RARP a 4-byte address slot for each STATIC DSA. | 
p conn {Sorts STATIC chain. | 
jesse j|Allocates storage for simple, non-structured, non-external items. | 
ECN Ge relative offsets of structure member dope vectors. | 
E. ļAllocates 4-byte addressing slots; calculates control section size | 
AA EE ] 


Section 3: Charts and Routine Directories 291 


eTable Pi. 


Phase PH Storage Allocation Static 2 


re see Ru. epu Oe O ED I ee EN OP EAS T E We ere oh ks ote ao CM ER on A I E EIN e 


| Statement or Operation Typ 


e 


(Main Processing] 


| Routine | Subroutines Used 


fren ł--------------- }--~--~----------------------------- { 


[Scans AUTOMATIC chain; allocat 


|dope vector 


[Allocates storage for skeleton 


es 


| PBSCAN {AUTO4, SKDV1, SKENT3, STRSCN, 


| | TEMPDV 


SKDV1, STRSCN 


| AUTOL, 


| SKARGL 


largument lists appearing in STATIC | | 


| chain 


————Ó — aaa an — — —— —— aaa — mm a — men 


[Scans STATIC chain for INTERNA 
jarrays; calculates number of 
|elements for those arrays need 
linitializing.  Allocates stora 
|for arrays and, if necessary, 
[secondary dope vectors 


[Scans STATIC chain for INTERNA 


L 
ing 


ge 
for 


L 


| None 


|structures. 


Calculates numcer of 


|elements in structured arrays need- 


jing initializing. 


Calculates size 


lof storage for 
[bumps location 
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all structures and 
counter. 


+ 

| 

| 

| | 
| | 
| | 
| | 
d--------------- ————————— 
| | 
| | 
| | 
| | 
| | 
| | 
L 


eTable PH1. Phase PH Routine/Subroutine Directory 


ER cR Rug Pa DE En quor. ue eeu eT CPU O EE 1 
| Routine/Subroutine| Function | 


|ARRSCN (in PA) [Scans STATIC chain for INTERNAL arrays; allocates storage for arrays| 
| land secondary dope vectors. 


| 
| AUTEND |Tests for end of AUTOMATIC chain. 
| 


| AUTO4 {Calculates size of dope vectors for dynamic temporaries and CON- 
| [TRCLLED variables. 


| 

| 

| 

| 

| 

| 
| CONSCN [Scans CONTROLLED chain. | 
| | | 
| CSCN2 |Tests for end of STATIC chain. | 
| | | 
| END513 [Stores STATIC location counter and releases control. | 
| | | 
| PBSCAN |Scans AUTOMATIC chain; allocates dope vectors. | 
| | | 
| PBS1 [Gets next item in chain. | 
| | 
| SKARGL |Allocates storage for skeleton argument lists appearing in STATIC | 
| | chain. | 
| | | 
| SKARG1 |Allocates storage required. | 
| | | 
| SKDV1 |Creates skeleton dope vector dictionary entries for non-structured | 
| |variables in AUTOMATIC and CONTROLLED storage. | 
| | | 
| SKENT3 |Constructs skeleton dope vector dictionary entries for function | 
| | values. | 
| | | 
| STRALO {Calculates number of elements in structure arrays to be initialized; | 
| |calculates size of storage for all structures. | 
| | | 
| STRSCN |Creates skeleton dope vector dictionary entries for structures in | 
| | AUTOMATIC and CONTROLLED chains. | 
| | | 
| TEMPDV i [Creates skeleton dope vector dictionary entry for temporary work- | 
| | space. | 
ESE IDA DO Locos ta the rl ile rie es sn sensorial J 
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Table PL. 


Phase PL Storage Allocation Symbol Table and DEDs 


[o ETSI PA O eet ECKE Diop N eee ess Rw ee yg ge eee a KM CLA ALIM LEE DAN RUE LE 1 


| | variables. 


[Main Processing| 


| Statement or Operation Type | Routine | Subroutines Used | 
~----------~----------------------- }---------------}----~---------------------+----------4 
|Allocates STATIC storage for all | LEMPL |BCSCAN, CCSCAN, CNSCAN, SCSCAN | 
[symbol tables and DEDS | | | 
~~--------------------------------- ł---------------ł----------------------------------- 
[Scans STATIC chain for symbol and  |SCSCAN |DEDAL1, STRSCN, SYMTAB | 
|DED variables | | | 
~---------------------------------- d--------------- ł----------------------------------- 1 
[Scans CONTROLLED chain for symbol  |CCSCAN |DEDAL1, STRSCN, SYMTAB | 
Land DED variables | | | 
~~--------------------------------- }--------------- Po l 
[Scans PROCEDURE block chain of | BCSCAN |ACSCAN, DEDAL1 | 
JENTRY type 1 entries | | | 
E oo 4---------------}-----------------------------------4 
|Scans AUTOMATIC chain for symbol | ACSCAN |DEDAL1, STRSCN, SYMTAE | 
land DED variables | | | 
fren re jan d-----——---------------------------- 1 
[Scans chain of members of particu- |STRSCN |DEDAL1, SYMTAB | 
lar structure for symbol and DED | | i 
| variables | | | 
----------------------------------- ł---------------ł-----------------------------------{ 
|Allocates storage for symbol tables|SYMTAB | DEDAL2 | 
~---------------------------------- Po o 
|Allocates storage for DEDS [DEDAL (two | None | 
| [entry points: | 
| |DEDAL1, DEDAL2) | | 
A E ie dee opos DE J 
Table PL1. Phase PL Routine/Subroutine Directory 
Rem Gm EE NE TS esee A aa 1 
[Routine/Subroutine| Function | 
p------------------ }-------------------------------------------------------------------- 1 
| ACSCAN {Scans AUTOMATIC chain for symbol and DED variakles. | 
| | | 
| BCSCAN [Scans procedure block chain of ENTRY type 1 entries. | 
| | l 
| CCSCAN |Scans controlled chain for symbol and DED variables. d 
| | 
| CNSCAN [Scans constants chain for DED variables. | 
| | | 
|DEDAL1 (PM) |Allocates storage for DEDs. | 
| | | 
| IEMPL |Allocates STATIC storage for symbol tables and DEDS. | 
| | 
| SCSCAN [Scans STATIC chain for symbol and DED variakles. i 
| | | 
| STRSCN [Scans cnain of members of particular structure for symbol and DED | 
| 
| 
| 


| 
[SYMTAB (PM) 
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|Allocates storage for symbol tables. 


Table PP. Phase PP Storage Allocation Sort of AUTOMATIC Chain 


pesce com eT qu me cu reu rcc cep pc He ep S 
| [Main Processing] 
| Statement or Operation Type | Routine | Subroutines Used 
koi P ————Á—————————————————— ee 
Scans BEGIN-ENTRY for ENTRY type 1 |RAO |SETCH, SCRUB1, SORCH 
| entries | | 
| ---------~-------------------------- d--------------- Po 
Scans AUTOMATIC chain from each | SETCH | EXDT, SRCIH2 
|ENTRY type 1 entry | | 
a epee ra ge ane a M E ee 
[Adds ON conditions to first AUTO- |SC24 | None 
|MATIC zone | | 
a A SHS eee ee 
|Adds temporaries (type 2) and inde-|Sc31 | None 
|pendent items to first zcne | | 
HE eee EEN oS aso ii Poe ee e 
[Adds dependent items to subsequent |SC44 | None 
[zones | | 
ET O EGO iu CE (Ree Seep se SSS are decere eee 
[Determines list of dependencies |SC39 |SCNCHN, SRCH2 
|from INITIAL attribute | | 
|Determines list of dependencies |SC40 | SCNCHN, SRCH2 
|from DEFINED attribute | | 
baa oe tè A A See ete eee c EE 
{Determines list of dependencies for|Sc35 |EXDT, SCNCHN 
larray bound expressions | | 
|--------------~---------------------- ł---------------ł}----------------------------------- 
[Determines list of dependencies for|Sc50 | SCNCHN, SRCH2 
[string length expressions | | 
p------------------------ ----------- 4--------------- A 
[Removes independent item dictionary |SCRUB1 | None 
|references upon which items in the | | 
| AUTOMATIC chain depend. | | 
AAA RS A ee ee e. La domnm E SS 
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Table PP1. Phase PP Routine/Subroutine Directory 


| RAL 
| 
| RAU 
i 
| RAT 


| SCNCHN 


SCRUBI 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
|SC40 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
L 


MCN AA A A EE EE PW n n W W 
| 


Function 


{Scans dimensions tables for second file statements with adjustable 
| bounds. 


| 
|Scans BEGIN-ENTRY for entry type 1 entries. 


| 
[Tests for end of ENTRY type 1 chain. 


| 
{Creates an AUTOMATIC chain delimiter. 
| 


[Tests for end of chain. 


[Scans current AUTOMATIC chain; determines whether reference belongs 
ito it. 
| 


|Removes independent item dictionary references from the stack of 
[dictionary references upon which items in the AUTOMATIC chain 
{| depend. 


|Adds ON conditions to first automatic zone. 


{Adds temporaries (type 2) and independent items to first zone. 
cidade: list of dependencies for array bound expressions. 
Determines list of dependencies from INITIAL attribute. 
Determines list of dependencies from DEFINED attribute. 

Adds dependent items to subsequent zones. 

Determines list of dependencies for string length expressions. 


Scans AUTOMATIC chain from each ENTRY type 1 entry. 


Sorts chain in order of dependencies; creates zone delimiter dic- 
tionary entries. 


[Scans second file statements for dictionary references of labels, 
|data items, and structures, which may belong to the current AUTOMAT- 
[IC chains. 











m —Á— —— (——— d aS dan n n A a ee eo ee Se ee ee eee See ee ee ee eee SS eee Se eee ed 
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Table PT. Phase PT Storace Allocation AUTOMATIC Storage 


preme momo m CT ee irs E ON DE LM CEDE HL E CDM d DU enc 1 
| [Main Processing] | 
| Statement or Operation Type | Routine | Subroutines Used | 
| -----------~-----------------------}--------------- }--~-------------------~------------ l 
[Scans stacked CONTROLLED chain for |MYNAM | DVSIZE | 
jlargest dope vector | | | 
A A aE Rd Ree TWA A A A E REPE DR R--.------------2.--2-22-2-2----2-2-2-2-------4 
|Initializes ENTRY type 1 chain scan|DSALOC | MKSTAT | 
Land DSA | | | 
}----- ----—--------------------—----- ł----------- Pe aaa 1 
|Allocates slots for ON conditions  |DSA4 | NKSTAT | 
ļ-----=--==------------------------- ł--------------- }----------------------------------- 1 
|àllocates storage for workspace and|DSA10 | None | 
|for DSA addressing vector | | | 
—— ————— M ——— }----------------------------------- 1 
[Scans AUTOMATIC chain and alidcates |DSA16 |COPY, DVSIZE, INITDV, MKSTAT, | 
[storage for dope vectors | | STOVIN | 
~--------~-~----~----~-------------}--------------- }-----------------------------------4 
|Allocates BUY workspace |DSA17 | Ncne | 
-----------------------------------ł--------------- Po oo e 
|Allocates storage for parameters |DSA19 | None | 
wa ro or janr ooo — —— E 
|Allocates storage for double preci-|DSA25 | None | 
{sion variables | | | 
} -----~-----------------------------}+-------------- $----------------------------------- 1 
|Allocates storage for single preci-|DSA29 | None | 
[sion variables | | | 
-———Á— n f= === $~~-------~-----~--------------------| 
|Allocates storage for character | DSA38 | None | 
| strings t | | 
~----------------------------------ł--------------- Po 1 
|Aliocates storage for bit strings |DSA46 | None | 
A E cu iuc e hiuc A P rU AA ue Aen Li lene LLL UL Lc E 4 
{Allocates storage for arrays and |DSA54 |COPY, INITDV, MKSTAT, SDVCDE | 
[Secondary dope vectors | | | 
ron oo a pin }~----------------------------------| 
JAllocates storage for structures |DSA68 [COPY, MKSTAT | 
——— +----------- ~~---------------------------------| 
[Gets VDA and initializes dope vec- |DSA72 [COPY, INITDV, MKSTAT, STDVIN | 
|tors for adjustable regions of | | | 
¡AUTOMATIC chain | | | 
-———ÀÁ——ÀM }+-------------- Po 
|Allocates storage for DEFINED items|DSA98 | None | 
Dee ut E a nce A tere een ee e PL E LM ue 4 
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Table PT1. Phase PT Routine/Subroutine Directory 








|Routine/subroutine| ^ Function [ 
Ico — 5 A nie nie dope edem ———— | 
Jedi PETER code to copy skeleton dope vector into real dcpe vector. | 
| DSALOC (VWE mene ENTRY type 1 chain scan and DSA. | 
E eg slots for ON conditions. | 
Wake EE standard save area and flag bytes. 

[DSA10 jAllocates storage and workspace for DSA addressing vector. | 
mm eens AUTOMATIC chain and allocates dope vectors. | 
| D8A17 ENTE BUY workspace. | 
|DSA19 (PU) tds storage for parameters. 
|DSA25 (PU) JAllocates storage for double precision variables. | 
|DSA29 (PU) |Allocates storage for single precision variables. | 
|DsA38 (PU) |Allocates storage for character strings. | 
Carr (PU) idee tes storage for bit strings. 1 
| DSA54 |Allocates storage for arrays and secondary dope vectors. | 
|DSA68 |Allocates storage for structures. | 
|DSA72 ios dope vectors for adjustable regions of AUTOMATIC chain. | 
oor pee pointer to skeleton second file statement. | 
E Ken storage for DEFINED items. 
readied |Allocates storage required for dope vectors. | 
ere comic code to initialize dope vectors. | 
ices [Gets VDA for this region of AUTOMATIC chain if required. 
m (PU) ONUS size of dope vectors. | 
EE ER pace code to initialize address slot in dope vector. | 
eh E a second file statement. 
fone CON CONTROLLED chains. 
Fre (PU) Osses code for secondary dope vectors. | 
eneen [Initializes structure member dope vectors. | 
ELA LL AA rc E EE LC et te Mum A a! 4 
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Table QF. Phase QF Storage Allocation Prologues 


[UO AA Aa a ES E Eme ELT TE NR Ws TEC epee eit, ACE kI a EE UNT Cie ag cra URS E ges e Sao 12 


| | 

| Statement or Operation Type | 

AA A IR A A TAPER a SEN + 
|Scans text for statement labels, 10 

| PROCEDURE statements, BEGIN state- | 

| 

| 

+ 

| 

| 


Main Processing| 
Routine 


— — — ou — «mte ee ml M a— m më Gn — vn — Wan an P eM A 0 — anm Ge — ae ann X waw i | M min a MÀ E a ana wen NEN em 


Í Subroutines Used 


|QBEGEP, QBPROL, GECP, GMCVE, QPROL, | 


|QSL | 

[ments, BEGIN END statements, and | | 
| end-of-program marker | | 
|-----------------------------------}----------- }----------------------------------- 1 
{Processes statement label pseudo- QSL | QGMOVE 
|code items | 
ļ---------------------------------—- ł----------- d----------------------------------- 
|Frees text storage at end of phase; |QECP | QMOVE 
[releases control l 
poo EE Pon Po A ee eee eee 
[Creates stereotyped prologue for a |QBPROL |CADJAL, QFSKIP, QF0201, CMOVE 
|BEGIN block requiring a dynamic | | 
[storage area | | 
——— à — d----------- Po ooo roro MMMM MM 
|Creates stereotyped or special | OPPROL |RADJAL, QFSKIP, QF0201, QMOVE, 
|prologues for PROCEDURE statements, | | QONPRL 
[depending on conditions. Processes | | 
[statement label pseudo-code items | | 
| ----------------------------------- d-----7-7----- ł----------------------------------- 
[Creates a compiler label marking | OBEGEP [QADJAL, QF0201, QMOVE 
[the return from a BEGIN block | | 
[----------------------.-----2-------- E Da A 
|Creates a prologue for ON block | QONPRL [QADJAL, QFSKIP, QF0201 
|Assembles code to initialize DSA | QADJAL | QMOVE1 
{dope vector data areas, and to | lo a 
[allocate variable data areas | | 
[-------------2.--------22-2-2-2-2-2-2-22-2.22-2-4j----------- € ——————Á — 
|Skips second file statements | OFSKIP | None 
|following a block heading statement | | 
A A A EE A SINE Äere e EE En 
[Obtains new buffer and chains it to|QFO201 | None 
|the previous one | | 
]---.-----------2-2---.------2--2222-2-2-2.j----------- j------------2--2-2--222-2222222-22------ 
[Moves input text being skipped from|QMOVE | None 
Jinput buffer to output buffer | 
| --------~-------------------------- d--------------- Po ro ron 
|Moves a second file statement, | QMOVE1 | QMOVE 
|pointed at by PAR1, to the prologuel | 
{being generated | | 
lnc ope A a IL m dosie dolce cc FA eee ote E EU E J 
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Table QFI. 


| QADJAL jAssembles code to initialize DSA dope vector, variable data areas, 

| land to allocate variable data areas. 

KEE [Creates a compiler label marking the return from a BEGIN block. 
obi (QG) Coe stereotyped prologue for a BEGIN block requiring a dynamic 
| [storage area. 

Leg teehee text storage at end of phase; releases control. 

m. (QG) oer second file statements followina a PROCEDURE or BEGIN state- 
| | ment. 

Geen ee text for statement labels, PROCEDURE staterents, BEGIN state- 
| |ments, BEGIN END statements, and end-of-program marker. 

Geo (QG) vere code to output buffer; obtains new buffer if required. 
KEE (men for external procedure. 

y ond DC prologue for GET DSA. 

| ORDEN EE code to copy argument and target addresses. 

Kee ee for entry points. 

EE pm end of chain. 

an nicus end of first region. 

PUTET TA mapping code from second file. 

loris TON for storage required. 

ein eee VDA accumulator assignment ccde from mapping code. 

e TUM text from input buffer to output buffer. 

ened ewes second file statement to prologue being generated. 

GE (QH) suas prologue for CN block. 

|OPPROL (QG) pude stereotyped or special prologues for PROCEDURE statements, 

| [depending cn conditions. 

[ose [Processes Statement label pseudo-code items. | 
A E AA A A A SE EM I MM TEE r 
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Phase QF Routine/Subroutine Directory 


fo. Sore ee ae Eee TTE ae Tm mme E 1 
¡Routine/Subroutine] 


dd em a tdo 


Function 





Table QJ. Phase QJ Storage Allocation Dynamic Storage 


E meteo a TIN Us erede. qu uec deaeque E ee ee ee ee 1 
| [Main Processing | | 
| Statement or ada Tyre | Routine | Subroutines Used | 
—á— IA IE A PEN MEE 1 
[General scan SÈ text for ALLOCATE, |GS1 |ALLCC, BUY, BUYP, FREE, TRF1. | 
|BUY and FREE statements | | | 
Er EE E IS E tl ats ea eee I LC A Sa ee J 
|Allocates items not requiring dope |AL20 |AL15, TRF2 | 
{vector | | | 
Leben 1 
[Generates code to move skeleton | MOVEDV |TRE2 | 
|dope vector into workspace for | | | 
[CODES D variables | | | 
———— ——————— st sito ee So on y 
| Looks ahead to reverse pointers for|REVPT [GS1, TREFL | 
|ALLOCATE statements | | | 
Lesben 1 
|[Allocates storage for controlled | AL28 {GS1, LIEC1, LIBC2, SCANSF, TRF2 | 
| string | | f 
[|Allocate storage for controlled | ^L27 | ABOUND, LIBC1, MOVEDV, PREVAL, | 
larray i | |SCANSF, TRF2 | 
Lesen EE 1 
|Allocates storage for controlled | AL29 |BNDEXP, LI6C1, MOVEDV, NXTREF, | 
[Structure | | NXTVAR, PREVAL, SCANSF, TRF2 | 
——— P —— — ———á (———————— À— 1 
|Loads Library call parameter reg-  |FREE (TRE2, TRE3 | 
{ister to free allocated storage | | | 
C 4 
[Moves skeleton dope vector for [BUYP ` | TRF2 | 
|bought temporary | | | 
rede EFT EN EN ELS TN m eer C o n e e e e kk pk e a an pp y 
|Buys storage for temporary array |PY1L |SCANSF, TRE2 [ 
Leben 1 
[Buys storage for temporary struc-  |BY13 |LISC4, NXTREF, NXTVAR, SCANSF, TRF2| 
| ture | | | 
IC Rex Vr MEQUE eee A ea oO NN C CN: UNES AMAN EU Rud MESI. VS of Ven Noe EDU 1 
|Places initial value code line for |AL15 [NXTRF, SCANSF | 
[controlled variables | | | 
~-------~-------------------------- }---------------}-----------------------------------4 
Skips scan register over initiali- |SKIPTX |GS1 | 
|zation statements | | | 
| ----------------------------------- }--------------- }~-----~---------------------------- 1 
|Generates code to set a pointer to |PREVAL | TRF2 | 
[the previous allocation. | | | 
| -~-------~--------------------------+--------------- $ =-=- 1 
Searches dimension tables for | ABOUND | SCANSF | 
ladjustable bound expressions | | | 
Lesben 
{Generates code for temporary varia-|STMP {LIBC3, TRF2 | 
|bles requiring only a dope vector | | | 
AA E A AA LE RETE A AA a pp AS dela IRR J 
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Table QJ1. Phase QJ Routine/Subroutine Directory 


[ROUTINE/SUBROUTINE| ^ FUNCTION |^ 000000000 1 
[ABOUND (QK) [Searches dimension tables for adjustable bound expressions. = 
[ALLOC (QK) E Se the type of allocate statement. 

Gens ee initial value code line for controlled variabies. 

late sé (QK) |Allocates items not requiring dope vector. 

n (QK) |Allocates storage for controlled arrays. 

PM (OK) jAllocates storage for controlled strings. 

Pee (QK) jAllocates storage for controlled structures. 

| BNDEXP deer or extracts code to set the adjustable bounds of struc- 

| | tures. 

i co the type of puy. 

m Mou skeleton dope vector for bought temporary. 

DUE ee Storage for temporary Structure. 

Ge GER Storage for temporary array. 

| BY15 ne storage for temporary string. 

| FREE (QK) T Library call parameter register to free allocated storage. 
T Kee Scan of text for ALLOCATE, BUY, and FREE statements. 

ueni AE UE |Places the library calling sequence for controlled storage in 


MOVEDV (QK) 


NXTREF (QK) 


NXTVAR (QK) 


PREVAL (QK) 


[sequence in the text. 


[Generates code to move skeleton dope vector into workspace for con- 
|trolled variables. 


[Obtains the next structure base element reference. 
|[Obtains the next varying array base element reference. 


{Generates code to set a pointer to the previous allocation. 


— — —oe MÀ E EE a— — — a aret WE A X a— —— ae ee us ma T — sen a— A me — — — — —— — O — — —— — a — man ank o 

















REVPT |Looks ahead to reverse pointers for ALLOCATE statements. 
ree second file statement in line in the text. 

SKIPTX us Scan register over initialization statements. 

STMP (QK) ROM code to buy storage for temporary variables which only 
|require a dope vector. 

TRF1 O input text to output. 

TRF2 es text skeletons to the output text. 

[n 12998 the Library calling sequence to the output text. 

O RI E AS ee O A E E A A A O SERI MONT i 
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| 
| 
| 
l 
| 
| 
| 
| 


eTable Gx. Phase QX Print Aggregate Length Table 


puce epe A O Tec ccc E I a ace mye OO NOI UI P 1 
| [Main Processing] | 
| Statement or Operation Type | Routine | Subroutines Used | 
Lesben 1 
|Scan storage chains in dictionary  |SCANC | ANAGG | 
|for aggregate entries B | | 
}---------------~----------~-------- }--------------- deo eoo -----------~-----=---------- 1 
JAnalyze aggregate dictionary | ANAGG | ANCOB, FINALA, FIRSTA,FCRMAL,GETVO, | 
|entries and print table entry | | GETSB, PRALEN, PRHED, VOPLUS | 
eu ma iti E LI ee [TN SA eet J 
e Table QX1. Phase OX Routine/Subroutine Directory 
poc c e Toe pc eM eme UT NUM UE UEM Een S 1 
|Routine/Subroutine| Function | 
po A a a aaa aaa 1 
| ANAGG |Analyzes dictionary entries for a major structure or non-structured 
| larray. 
| | 
| ANCOB |Finds original major structure dictionary entry for a COEOL major 
| |Sstructure. 
| 
| FINALA |Calculates address of final basic element of a major structure. 
| 
| FIRSTA {Calculates address of first basic element of a major structure. 
| | 
| FORMAL {Calculates length of a non-structured array. 
| | 
| GETVO [Gets virtual origin of a dimensioned variable. 
| | 
| SETSB [Sets pointer to BCD in a dictionary entry. 
| 
| PRALEN |Prints an entry in the Aggregate Length Table, and aets statement 
| [number. 
| | 
| PRHED {Prints main heading of table. 
| | 
| SCANC {Scans STATIC, AUTOMATIC and CONTROLLED chains in dictionary for 
| [aggregate entries. 
| 
| SETPH {Prints first page heading and sets print buffer for subsequent page 
| |headings. headings. 
| | 
| VOPLUS {Calculates address of first or last element of major structure. 
hls ul baaa ucc ce c Lu cu mec LE i ee LL MALA n pte ele J 
Section 3: Charts and Routine Directories 303 


Chart 09. Register Allocation Logical Phase Flowchart 
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Chart RA. 


Phase RA Overall Lcgic Diagram 
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Chart RF. Phase RF Cverall Lcgic Liagram 
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Table RA. 


Phase RA Register Allocation Addressibility Analysis 


[I TIC esI IN DT EIE IS TL T NERONE UON A A Nea ee eI GC e RUN Ie OT Rad RE A TRA EE 7 


| Statement or "Operation Type 


| tions 


a mo ev am anm can — an «an — — am E a an 0 «an a «w am ee H — — — 


[Compiles code for Start of PL/I 


[Statement: 1. with label, 
[without label, 3. 


|Processes PROCEDURE and BEGIN 


| blocks 


|Processes END statements on PROCE- 


|DURE or BEGIN blocks 


{Examines dictionary reference in 


| source 


compiler label 


(Main Processing 


{Produces recovery code when literal|ADTEST 


joffset greater than 4095 is met 


[Creates coded addressing instruc- 


Kees 


| Routine | Subroutines Used | 
MIN A e e e Se e ee | 
| LAA jACT1, ACT2, ACTS, ACT8, ACTI, i 
| |ACT10, ADCEUF, GETSBF | 
ł--------------- ———— 1 
|ACT3 |ADTEST, DRTEST | 
l | | 
----ł--------------- ł-----------------------------------{ 
|ACT4 |ADTEST, DRTEST | 
Sn ł-----------------------------------] 
|ACT15, ACT14,  |ADCBUF, GENFLP, UPSN | 
| ACT16 | | 
| | | 
EE EE d 
| ACT6 | ADCBUF | 
| | | 
~---}--------------- }-~---~----------------------------- { 
| ACT7 | ADCEUF | 
| | [ 
}--------------- }----------------------------------- i 
| ADCBUF | GETCBF | 
A EE Dee 
| ADIBUF | GELIBF | 
Ho o }----------------------------------- 1 
[GETSBF | None | 
}--------------- }----------------------------------- 1 
| GETCPF | None | 
}--------------- }--~-------------------------------- | 
|GETIBF [None | 
}+--------------- }~---------------------------------- 1 
|DRTEST |ADINST, DECOMP, SETBLK | 
| | | 
~---}--------------- }----------------------------------- { 
| ADCEUF | 

| | | 
ł--------------- ł----------------------------------- { 
| ADINST |ADCEUF, ADIBUF | 
| | | 
EN EDITT ec ag as A a e En a oo e 4 
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Table RA1. 


Phase RA Routine/Subroutine Directory 


[Routine/Subroutine| SS Function sss i 
era o | 
| ACT2 merum non-special five-byte item to output. | 
| ACT3 rica RX, RS, or SI instructions. 
äer eebe SS instructions. | 
Poo LE End of block routine. | 
nr DOR PROCEDURE and EEGIN blocks. | 
¡ACT ee END statements on PROCEDURE or BEGIN blocks. | 
‘eH T of source text routine. | 
PU mr of start of common block of prologue. | 
Geen AEN at end of prologue. | 
| ACT12 regis absolute code to output strean. | 
| ACT13 EE ADI instruction at prologue insertion point. | 
Im RT. code for start of PL/I statement with label. | 
JACT15 fone code for start of PL/I statement without label. | 
jai TP code for start of PL/I statement compiler label. | 
PNE foe store of calculated address. | 
E Ge text to output string. | 
PT es ids text to insertion file. | 
SENOR TOP coded addressing instructions. | 
Ve ee recovery code when literal offset greater than 4095 is e 
P oe whether previous offset is out of bounds. | 
e rer oe dictionary reference. | 
ege (RB) rem dictionary reference in source. | 
od foe step table and cenerates addressing instructions. | 
foe Keiers code to set bits on and off in a prefix ON-slot. | 
Do. iom ciue next output Luffer. | 
Ce obtain next insertion file buffer. | 
GE eg next source buffer. | 
iius icons input text. | 
hues re addressing instructions to IN-LINE. | 
| SETBLK eee klock number of referenced iter. 
Fee PER RN code to keep the statement number slot in the [SA up to l 

i 


| date. 


Table RF. Phase RF Register Allocation Physical Registers 


EE EE ra ac 1 
| [Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
}----------------------------------- ł---------------ł----------------------------------- 1 
[Controls scan of text | 29 | ADCBUF, ADIMOV, BR1, EK3, ER4, | 
| | |GETNXT, LBAL, LBALR, LECTR, LEOB, | 
| | |LEOP, LE1, LR3, LRU, LR6, LR7, LR9, | 
| | |LSHIFT, OBREGS | 
}----------------------------------- }--------~------ 4----------------------------------- 4 
{Processes PROCEDURE or BEGIN state- |LPRCC | None | 
[ment | | | 
}-----------------~------------------+--------------- ł----------------------------------- 1 
[Processes end of PROCEDURE or BEGIN|LEND | None | 
| block | | | 
—M—À— A A AI E A A A A A | 
[Processes requests for registers; |OBREGS |BRGUSE, LOAD1, STORE1, STORE2, | 
ee physical registers | | REGUSE | 
e a a a a e n a a St ii EEA 4 
|Compiles code to store syrbclic | STORE2 |ADCEUF [ 
|registers | | | 
pe Tt PRSE UR UMEN R------------2-2-2-22-22--2-2----2----------4 
[Compiles code to store assigned | STORE1 | ADCEUF | 
{registers | | | 
|----------------------------------- }--------------- ł----------------------------------- 1 
|Compiles load GE physical registers|LOAD1 | ADCEUF | 
NN NN ł-----------------------------------] 
|Compiles load register | LOADRG | ADCPUF | 
a a E a Si aaa oo ne aa een a al J 
|Expands coded addressing instruc-  |ADIMOV | ADCBUF | 
| tions | | | 
PA ea AE uis iu i cU Oe et oe Se ee T 
eae to output buffer | ADC BUF | None | 
M AS MH a P ee TRU DUC OM A IR AN E, A 
Table RF1. Phase RF Routine/Subroutine Directory 
AA E A EEEE c DD EIER PM S 1 
[Routine/Subroutine] Function | 
A E | 
| ADCEUF [Adds to output buffer. | 
| | 
| ADIMOV |Expands coded addressing instructions. | 
| | 
| BRGUSE [Tabulates use of base register in look-ahead. | 
| | 
|BR1 (RH) |Processes RX branch instructions. | 
| | | 
|ER3 (RH) {Processes BCT instructions. | 
| | 
JBR4 (RH) |Processes RR branch instructions. | 
| | 
| FRTEST [Scans list of free registers to make even-odd pair. | 
| | | 
| GETNXT [Obtains next block. | 
| | 
[LAD1 (RH) |Processes AD1 (addressing) instructions. | 
| | 
ie (RH) {Constructs and puts out completed instruction. | 
eee O PE EA e EE ERO RO i Nn ay Oe DOE A AA P NT 
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Table RF1. 


ss 
|RoutineZSubroutine 


[LBAL (RH) 
Geesen (RH) 
A (RH) 
BROS (RH) 
e (RH) 
fo (RH) 
fo 
ee 
ee 
e (RH) 


| 
|LR1 (RH) 


| 
|LR3 (Rh) 


| 
[LR4 (RH) 


| 
[LR6 (RH) 


R7 (RH) 


R9 (RH) 


OB560 (RG) 
OB630 (RG) 


OB895 (RG) 


Lzlll22-zclolococ.- 
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LSHIFT (RH) 


[Tests whether all registers are available. 


P9INIT (RH) 


OBREGS (RG) 


A A A A eee hee eee ms a e 


Phase RF Routine/Subroutine Directory (cont'd) 


lE CE M E MCI NO MI a LL QC C 1 
| Function | 


Gro 1 
|Processes BAL instructions. 
| 

[Processes BALR instructions. 
| 


|Processes BCTR instructions. 


|Processes DROP pseudo-instruction. 


| 
[Loads end of PROCEDURE or BEGIN block. 


| 


|Processes end-of-block marker. 
[Processes end-of-program marker. 


|Compiles load of physical registers. 


[Compiles load register. 

| 

[Processes PROCEDURE or BEGIN statement. 

| 

|Processes instructions in which first and second operands require 
| loading, and the first is altered, e.g., AR. 

| 

|Processes floating-point instructions. 

| 

[Processes SS instructions. 

| 

|Processes instructions where a load of first operand is required, 
loperands are changed, e.g., ST. 


D 
o 


| 
|Processes SI instructions. 
| 


| Processes instructions in which no load of first operand is needed, 
land it is changed, e.g., LA. 


{Processes shift instructions. 


|Generates stores of registers if branch in or out. 


{Generates code to load registers. 


|Main text scan. 


|Processes requests for registers; allocates physical registers. 


[Tabulates use of registers in look ahead. 


[Compiles code to store assigned registers. 


|Compiles code to store symbolic registers. 


[Extracts ADIs at prologue insertion point. 


[Controlling scan of text. 


A — A A — — MÀ E PP — an anve ——— fanm —— dan ana ——À P a T — M a— s em a save Ma "— aM — que ana MM awè! ae Mate mm — E ee ane ee au de aime anwe ge ee ae — e e — 
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Chart TF. Phase TF Overall Logic Diagram 
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Chart XA. Phase XA overall Lcgic Diagram 
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Table Tr. 


| Statement. or Operation Type | Routine | Subroutines Used 
por ii ii pie ageet 
|5cans text [150024 | None 
——————————————————————ÓÓÓ— 
[Assigns offsets to labels [140019 |FINEQ1, NEXTSL 
ļH------------------------------------ł--------------- ł------------------------------ 
|Increments location counter for [iL0014 | None 
[machine instructions | | 

A A A ———— Á— $ o nin 
[Determines code for instructions | IL0020 |FINEC1 
Jwhich refer to labels | | 

A rec M ac DES E epee RE ——— — üÓ— MÀ ae 
{Initializes location counter at [IL0010 | None 

Start of proecause | | 
| ~----------------------------------}--------------- pono nnn nn enn nnn anne enn nen 
{Stores size of procedure and {1L0011 | None 
|resumes containing procedure | | 
es eee a ote A a ne ak ap n PON T€ B PRIN EST ee 
Table TF1. Phase TF Routine/Subroutine Directory 
| Routine/Subroutine| Function 


——— — eti —— M ana a va Gan ane avm — M can M i a bm one m — ep n n — — an anm —— — CC —— A - w Le X ana asi st ei — an: ann —— GEN a A M ve € —— —— ——  "— — es e sam M A — —— e vn A: — vm T uA Gan ve — T "A "ua A chin can ve M A — 


[Locates label number table entries. 


Phase TF Final 2ssembly Pass 1 


|Main Processing| 


|Entry point from compiler control. 

to scan from initialization routine. 

location counter at start of procedure. 

of procedure and resumes containing procedure. 
Increments location counter for machine instructions. 


Processes the start of prologues. 


instructions which refer to labels. 


Processes end-of-block pseudo-code item. 


| FINEQ1 
acou | 
Ge? e point 
Vetoes ias 
en Leche size 
TT | 
RE | 
EE TOC ses controi. 
EL PS offsets to labels. 
Genee err ae code for 
E | 
ree TEM text. 
enen | 
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Table TJ. 


Phase TJ Final Assembly Optimization 


fea ge MIU ENTIA RR E NE uS o VITA PIE A XAR Sp, qs Wa 3 TE eee TS = ey Ageing TEMA WS NL TUN EE NNUS Do ee e il 1 


|Main Processing| 


| Statement or Operation Type | Routine | Subroutines Used 
Piece Re ccr eee Uo EN AY ale eat eis le eek eS 
|Controls phase [110000 | OPTIMA 

| -----------------------~-----------}--------------- Y aaa i 
{Maintains location counter for |in00i4 | None 

[machine instructions | | 
|~----------------------------------}------~--------- +~---------------------------------- 
lAssigns offsets to labels |IL0019 |COMRTN, FINEQ1, NEXTSL 

E A e fe a ee ee ee ee 
|Determines code for instructions [1510020 | FINEO1 

[which refer to labels | | 

isle uec A aah A ee A A eee 
[Initialize location counter at |TLOO1O | None 

[start of procedure | | 

wet ee IA L-----------2----j-----------------2--2.-------—--------- 
|Stores size of procedure for ¡ILOO11 | None 


Jmachine instructions | | 


}--~---~-------~--------------------}--------------- PO ooo d 
|Determines offset from a given | OFFSET | None | 
|dictionary reference | | | 
SS dow eee darc luec a eat et io eI. J 
Table TJ1. Phase TJ Routine/Subroutine Directory 


SEASON AUNT oe, "goi LE bL E IGE py PEO C ECC ILC M MM MM CL LM LED So ati sèk DONE C ge 
| 


Routine/Subroutine | Function | 
Loan OO E E E e kre n e a e | 
SEARO! ewes label number table entries. | 
Pee et phase. : 
Pre leson point to scan lcop from initialization. | 
Kee EE location counter at start of procedure. | 
oni codes Size of procedure and resumes containing procedure. | 
gnis ee machine instructions, etc. | 
coin TENE location counter for machine instructions. | 
NUT cee offsets to labels. | 
KEE jes code for instructions which refer to labels. | 
EE Gees pseudo-code item length and updates text pointer. | 
foe |Elides MVC instructions. | 
kool uu edes new ADCON needs. Sets location counter to zero. | 
NS EE content of containing procedure. | 
| NEXTSL TER for equivalent statement lakeis. | 
ondes (TK) O offset from a given dictionary reference. | 
l'ora m text. | 
[OSEE [scans ahead for literal offsets. | 
€————————————————————————————————— —————————— —————————— J 
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Table TO. Phase TO Final Assembly £xternal Symbol Dictionary 


[uerus uec cr reU DEER l APENN cse meque ua oue EEE 1 
[Main Processing] | 
| Statement or Operation Type | Routine | Subroutines Used | 
}----------~-------~---------------- door pa ee 1 
{Constructs first six standard ESD |LG401 | MOVE, NAME, ERROR | 
|entries | | | 
~----~---~------~---+----~---------- $--------------- ł---------------------------------—- 1 
[Constructs entries for external ILGOOT |MOVE, ERROR | 
|procedure labels | | | 
}--------~-------------------------- }--------------- d----------------------------------- 1 
|Constructs PR type entries for each|LG030 | MOVE, NAME | 
{block and procedure | | | 
}--------~--------------------------}--------------- }----------~------------------------ 1 
|Constructs entries for external | LGO50 | MOVE, ERROR | 
[varsables and external entry names | d | 
po oo re f--------------- }----------------------------------- { 
[Constructs entries for ccntrolled  |LG090 [ MOVE, NAME, ERROR l 
Jvariables and task names | | | 
po oo nn ł--------------- Pe aaa 1 
{Constructs entries for Library [110200 | LHEINC | 
[conversion modules | | | 
MENTEM HANE S P E NOE Wa an ky el ooo e ese Mo Se ete ee a J 
Table TO1. Phase TO Routine/Subroutine Directory 
rs ee cum See mmm vm mn mm: ee cuum ee mn we a a ce ee wm ee mmm ee dd 4 a 
|ROUTINE/SUBROUTINE | FUNCTION | 
}------------------- }-------------------------~-------------+----------------------------- { 
| ERROR [Truncates over-length external. identifier, generates error message. | 
| | | 
[1LG001 |Constructs entries for external procedure labels. | 
| l | 
|LG030 |Constructs PR type entries for each klock and procedure. | 
| | | 
|LGO50 |Constructs entries for external variables and external entry name | 
| | | 
|LGO55 |Processes ON-conditions and external variables. | 
| | | 
| LGO80 [Processes external entry names. | 
| | | 
|1G085 |Processes FILE constants. | 
| | | 
|LGO90 [Constructs entries for controlled variables and task names. | 
| | | 
|LGO93 |Inserts name in ESD entry for CONTROLLED. | 
| | | 
{LG401 {Constructs first six standard ESD entries. | 
| | | 
| MOVE [Moves ESD entries to card buffers, and puts out buffer when full. | 
| | | 
| NAME [Generates names for pseudo-registers. | 
| | | 
|LHEINC (TQ) {Constructs a string of Library module names. | 
bic EEE ree ENTE ee as po e c UICE TITRES HONOR IUE MONT E 4 
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Table TT. Phase TT Final Assembly Pass 2 
pee UPS AS E AA quc cmm pr me emos eem nin EE 1 
| (Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used 
}----------------------------------- +~--------------- }----------------------------------- 4 
{Scans text [1L0002 | None | 
pP UPON EERE SEE EN O ee E EEA DN PPM O SCE EO y 
{Generates text for RR instructions |ILOO12 | GENTXT | 
O par re i 
{Generates Text for RX non-branch [110013 | EOBRTN, GENTXT, OFFSET d 
linstructions LM, STM, and SI Types | | | 
|-------------------~--------------- Lech 1 
{Generates text for shift instruc-  |IL0027 | GENTXT | 
| tions bn | | 
~------------~--------------------- }--------------- }----------------------------------- 1 
(Generates Text for SS instructions |1L0014 |EOBRTN, GENTXT, OFFSET | 
Lesben | 
|Sets up trace information and num- |ILOO19 | GENTXT | 
|bers compiler labels | | | 
————————————— +--------------- ar ne no E} 
|Generates text for branch and load |IL0020 |FINEO1, GENTXT, OFFSET | 
ladáress instructions | | | 
~---~-~---------------------------- }---------------}-----------------------------------{ 
{Initializes location counter at [110010 | PUNCHT | 
[start of procedure | | | 
|-----------------------------------+--------------- ł--------=------------------------—-: | 
{Resumes containing procedure at end|IL0011 | PUNCHT | 
lof procedure | | | 
}--------------~--------------------- +--------------- }-----------------------------------: | 
{Moves Text into card image | GENTXT | PUNCHT | 
}----------------------------------- }~----~--~------}----------------------------------- { 
{Punches cards ensuring that RLD | PUNCHT | CAKDOU | 
|cards follow related TXT card | | | 
— $---------~-----}-----------------------------------4 
{Generates text for compiler subrou-|INCLUD | GENTXT | 
[tine | | | 
Loan PERTENECER AENEID A soto Bas A A E A J 
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Table TT1. Phase TT Routine/Subroutine Directory 

|Routine/Subroutine| ^^ 000000 Function [ 
|CARDOU — DIDI lc 21 Nola a t0 CU | 
aoc ER to next input text block. | 
I NER TNR label number table entries. | 
eeng cues text into card image. | 
tegens me text. | 
engage m point to scan from initialization routines. | 
ere Initializes location counter at start of procedure. | 
anon Inesunes containing procedure at end of procedure. | 
|IL0012 T enerates text for RR instructions. | 
Ve 510013 PR text for ki non-branch branch instructions, LM, STM, and | 
| |SI tyre. | | 
EUNT n jenerates text for SS instructions. | 
EE eege the start of prologues. | 
ee p the end of prologues. | 
a 0017 ZS End-of-text routine. | 
ae ees up trace information and numbers compiler labels. | 
eee rto text for branch and load address instructions. | 
ee usas block routine. | 
oda En text for shift instructions. | 
ios FSET (TU) oce duet offset and relocation pointer from given dictionary ref- | 
| | erence. | 
| | | 
ÓN EE 


Section 3: 


Charts and Routine Directories 
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Table UA. Phase UA Final Assembly Initial Values, Pass 1 

















Cr et MCI So azòt premere a pr ee ne TT a gee ee 1 
| |Main Processing] ! 
| Statement or Operaticn Type | Routine | Subroutines Used | 
ļ-----------------------------------ł--------------- Po ooo 
|Scans STATIC chain to beginning of |UAOO1 [UA200, UA220, UA230 | 
jexternal section | | | 
~---------------------------------- donn or EE 
|Initializes scalar variables [UA200 | TXTMOV | 
-------—--------—---—--------=-----—- ł---------------ł----------------------------------- 
|Initializes BCD for label ¡UA220 {RLDMOV, TXTMOV | 
(— EE M: 
{Initializes DED for temporary JUA230 | TXTMOV | 
AA A see pe ee aE PREN SAY E Po dbeeseeeeeteEE EEN EEEEn 
|Initializes address constants. [UA010 |UA401, UA403, UA4O4, UALG05, UAYOG | 
ncc mE Pp RU URS A Da DA a AA | 
[Initializes symbol table entries [UA080 |RLDMOV, TXTMOV | 
——— ————— E | 
{Initializes address slots for | UA403 |RLDNOV, TXTMOV | 
[external variables | | | 
RR A RE EEE AA for near roro 
|lInitializes address slots for func-|UA401 |RLDMOV, TXTMOV | 
{tions and programmer-defined ON- | | | 
[condition names | | | 
~----------------------------------}--------------- ————— 
|Initializes address slots for label|UAO4 |RLDMOV, TXTMOV 
| constants | | | 
-----------------------------------ł--------------- ł----------------------------------- y 
|Initializes address slots for entry|UA405 |RLDMOV, TXTMOV 
| labels | | | 
ee Uc MEE piebcc c NEU LR M EIE IIR M MM LE 1 
|Initializes file attribute entries |UA406 |RLDMOV, TXIMOV | 
[and files | | 
a man MEME E E A queens eee ppc Se ee C D LE 1 
{Initializes constants pool |UVAO1LU |RLDMOV, TXTMOV 
~---------------------------------- }~--------------}-----------------------------------4 
|lInitializes dope vector skeletons  |UA021 | TXTMOV l | 
----------------------------------- Gro poor 
[Initializes argument lists [UA025 | RLD&OV, TXTMOV | 
EA utu EL ee M ak S A apa aaah aaa a aes J 
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Table UAL. 


Phase UA Routine/Subroutine Directory 


igni a pup Er C EE A eee cicer evene er eee emque ee meme 1 
|Routine/Subroutine| Function 


| OUTPUT (UB) 
| 
| RLDMOV (UB) 
| 
| TXTMOV (UB) 


| 
| UA0000 


UAO1H5 (UC) 


UA0215 (UC) 


UCUPDT (UC) 
UCOO80 (UC) 


| TIDY (UC) 


Moves card images to punch and/or load file. 
Moves RLD entries to card buffer. 

Moves TXT entries to card buffer 

Entry point from compiler control. 


[Scans STATIC chain to start of external section, to initialize 
{scalar variables. 


[Return point for branches taken in first scan. 


| 


|Initializes address constants. 


|Return point for branches taken in second scan. 


|Initializes constants pool. 


{Initializes dope vector skeletons. 


| 


|Produces text for dope vector skeleton. 
| 


|Initializes argument lists. 


[Return point for branches taken in last scan. 


|Initializes symbol table entries. 


| 
|Initializes one-word CSECT 'IHEMAIN'. 


| 


|Exit from UA to compiler control and UD. 


Jinitializes scalar variables. 


| 
[Initializes BCD for label. 


|Entry to label routines for label variable BCDs. 


| 
|initializes DED and FED for temporary. 


{Initializes address slots for functions and programmer-defined ON- 
[condition names. 


JInitializes address slots for external variakles. 


|Initializes address slots for label constants. 


|Initializes address slots for entry labels. 


|Initializes DECLARE control blocks for files and file attributes 
| entries. 


[Makes text for file attributes entry. 


|Initializes array variables. 
JInitializes arrays of varying strings. 
|Initializes bit arrays. 


[Completes packing of bit strings in structures or arrays. 


— — €— M — HÀ — — M — — MÀ — aa A anne a a——e= MÀ a T — H— —— M — A M a— — E A ve a A es en — seen ao ame aw M ewa amwen Mwin aa We tn am A — oe A— — e man. 


Ce a a gegen es e a a a a i we a a a a E E ee E J 
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eTable UD. Phase UD Final Assembly Initial Values, Pass 2 


peres sepe T ae PEE PI En REO eS ee c ME c MM OD E 
[Main Processing | 

| Statement or Operation Type | Routine | Subroutines Used 
A A E A A ES GE So nn 
[Scans STATIC DSA chain |A1 | AUTO 
A E EE 
[Scans STATIC DSA's AUTOMATIC chain |AUTO | DAT, LAB, STRUC 
————Á——————Ó——————À———— eee eae Saeco 


[Initializes dope vectors for data |DATLAB 


litems and label variakles | | 


| (unstructured) 


JInitializes dope vectors for | STRUC | TXTMOV (UB) , TLDMOV (UB) 


structures 


| 
bolo E iT S ru EE e — — MÀ A A ES 


eTable UD1. Phase UD Routine/Subroutine Directory 

















| Routine/Subroutine] Function | 0/ | | 
T MEN Ma Satie DEA chaine E T PL LE. 
poe ege STATIC DSAs AUTOMATIC chain. | 
oe UCET dope vectors for data items and labels. | 
posue si structure dope vectors. 

er Gegen, point 

face [Releases control. | 
loin a a Se Sa a Se ee ea SS ee oa A eS ee e A J 


Tabie UE. 


Phase UE Final Assembly Initial Values, 


Pass 2 


|Main Processing | | 


| Stetement or Operation Type | Routine | Subroutines Used | 
A A AA A E EE A ON TUR CEPS 4 
[Scans STATIC chain to beginning of |UAOO1 [UAZOC, UA220, UA230 | 
|external section | | | 
no ł---------------ł----------------------------------- 
{Initializes scalar variakles JUA200 | TXINOV (UB) | 
Eeer ee dos E 
[Scans STATIC chain to initialize {UA003 [UA300, UA320, UA340, UA360, UA365 | 
[internal dope vectors | | | 
~-~-------------------------------- }---------------4---~-------------------~-------------| 
JInitializes dope vectors for inter-|UA300 | RLDMOV (UB), TXTMOV (UE) | 
[nal strings | | | 
ee ee ne a pe, AO ee Peseta ase Sas E pisto 1 
|Initializes dope vectors for inter-|UA320 [RLIDMOV (UB), TXIMOV (UE) | 
(nal data arrays | | | 
----------------------------------- ł--------------- }--~-------------------------------- { 
|fnitializes dope vectors for arrays |UA340 | TXTMOV (UB), UCUPDT (UC) | 
lof varying strings | | | 
~---------------------------------- ł---------------ł-------------------------—---------] 
|Initializes dope vectors for inter- |UA360 | RLDMOV (UE), TATMOV (UE) | 
[nal label arrays | | | 
---------------------------------—- ł---------------ł-----------------------------------{ 
|initializes dope vectors for inter- |UA365 [UA300, UA320, UA360 | 
(nal structures | | | 
[osse Or Mc RR ade car quee es rea eee E ecc iu mun eo be re reer eoe 1 
Jinitializes arrays [UAOS0 [RLOMOV (UB), TATMOV (UE), | 
| | JUCINIT (UC) | 
SS O oe eege a rain ar iic T 
|Initializes structures ¡UAOLO |TXTEOV (UB), UA200, UCOS800 (UC), | 
| | {TIDY (UC) | 
pS O ee ee SR SO ee ee ee 
|Initializes one word CSECT [UA100 [OUTPUT, RLDMOV, TXTMOV (all in UE) | 
| 'IHEMAIN' | | | 
A A A A A a M EE NN | 
|Initializes CSECT for STATIC [UA1005 {OUTPUT (UB), UAO30, UA200, UA300, | 
|external variables | [UA320, UA360, UA365, UALO1, UAGOG | 
|------------------------------------}---------------}----------------------------------- { 
{Makes up END card and terminates | UA120 | CUTPUT (UE) | 
|phase | | | 
A Ne a EE PWE Fe St qure erm ene 1 
{Initializes array variables |UCINIT (UC) |TXTMOV (UB), UCOO80 (UC), TIDY (UC) | 
AAA SS ea ae A A do elus A on decem ee E EU E A E ae J 
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eTable UE1. Phase UE Routine/Subroutine Directory 


proe en TS A ues EE EE 1 
|RoutinesSubroutine] Functicn | 
}------------------}--------------------------------------- ~----------------------------, d 
| AREA Initializes AREA variables. 


+ 

| | 
coe free EVENT variables. | 
DM iut dues TASK variables. | 
IN. TNT point from UA and compiler control. | 
[UA001 eens SIATIC chain to start of external section, to initialize sca- | 
| {lar variables. | 
ENT ere point for branches taken in first scan. | 
tangas men STATIC chain to initialize all dope vectors for internal edu 
| lables. | 
ugi DM of scan for arrays and structures. | 
VN Mises arrayS. | 
geg nem RLD entry for label array virtual origin. | 
cee cias point for branches taken in array scan. | 
Ke, M RLD entry for data array virtual origin. | 
vacio |Initializes structures. | 
lonis (UC) tés IHEMAIN CSECT. | 
GE EE point for branches taken in external scan. | 
rer ieee up END card and terminates phase. | 
BE kaa ae scalar variables. | 
Ge MM label variables. | 
Fe eege dope vectors for internal strings. | 
freer GE dope vectors for internal data arrays. | 
m —— dope vectors for arrays of varying strings. | 
freee. clipes dope vectors for internal label arrays. | 
ua TO NS dope vectors for internal structures. | 
ste rere: address slots for functions and programmer-defined ON- | 
| [condition names. | 
usage alas DECLARE control blocks for files and file attributes | 
| |entries. | 
[vaz 005 [Initializes CSECTs for STATIC external variakles. | 
————— ——— "———— —Á————— Á'————————— MCI ee 1 
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Table UF. Phase UF Final Assembly Object Listing 
poc EE E cU PUE Ee p 1 
| [Main Processing | | 
| Statement or Operation Type | Routine | Subroutines Used | 
}--------~--------------------------4--------------- Po a 1 
[Scans Text [110002 | None | 
frenn ra or par ao a ee 1 
|Lists RR instructions | 110012 | PRINIT, RRRTN | 
|--------~------~-------------------}--------------- }----------------------------------- { 
|Lists RX non-brancn instructions ¡ILOO13 [BXRTN, PRINIT, ERNTOU, PRNTVF, | 
| | | SECCND l | 
}--------~------------------------ Po pa a ooo 1 
|Lists SS instructions |[IL0014 | EOBKTN, PRINIT, PRNTOU, SSRTN | 
Em a E d EA ES ee NES ] 
|Lists shift instructions |ILOO26 | PRINIT, PRNTOU, PRNTVF | 
}--------~-------------------------- A ———— á HH === ----- 1 
|Lists LM and STM [IL0027 {PRINIT, PRNTOU, PRNTVF, SECOND | 
}--------~------~--------------------}+-------------+-}+---------------------------------- 1 
JLists SI instructions | IL0028 |CHARVF, PRINIT, PRNTOU, PRNIVF | 
| | |SECCND, SSKTN | 
}-------~-~-------------------------- }-----~---------}----------------------------------- 1 
[Lists branch and load address ¡ILOO20 (IL0013, NAMEIT, NAMEQU, PRINIT, | 
instructions | | RRRTN | 
-——------—---------------------- P --— —— —— — H— ez 
[Lists labels |TLOO19 |NAMEVF, NEXTEL, NEXTSL, | 
| | | PRNILC, PRNTOU, PRNTVF, STATMN | 
| ----------------------------------- }~--------------}----------------------------------- { 
Lists procedure names | IL0010 | NAMEVF, NEXTEL, PRNTOU, STATMN | 
MED pec tl a esl mU eer oa ea Sh A A A A HORUM PÈ e 4 
|Lists ends of procedures {IL0011 |NAMEVF, NEXTEL, PRNTOU | 
}---------------------------------- }+--------------}----------------------------------- 1 
Scans ahead for literal offsets; | SECOND | EOG ba | 
[inserts second instruction byte | | | 
[into print image | | | 
|------------~----~---------------- 4--~------------ }----------------------------------- { 
|Generates listing of text for base |SSRTN, BXRTN |ABSOFF, ADDEND, NAMEIT, NAMEQU, | 
loffset pair | | PRNIVF | 
}--------------------------------- {--------------- }----~------------------------------ 1 
|Names generated label number | NAMEQU |DECINT, FINEQ1 | 
}----------------------------------- d--------------- ł-----------------------------—----- 1 
|Inserts location counter value, a|PRINIT |PRNILC [ 
[hexadecimal and mnemonic operation | | | 
[codes in print line | [ | 
pe roro ł--------------- ł----------------------------------- 1 
[Moves variable length item into | PRNTVF | PRNTOU | 
|variable field part of print line | | | 
}------------------------ --------- de-------------- Po ooo 1 
[Lists statement numbers | STATMN | STATNO | 
de lt Ld A E aser e E A ----2-2-2-22----------------2-2.-]---2.---2---2.-22-2222-22-2---2-2-2----2--------J 
|Determines name and offset from | NAMEIT |DECINT, HEXINT | 
[dictionary reference | | | 
---------------—-----------------—- }~-------~------}-----------------------------------| 
[Generate listing of compiler |IL0017 | PRNTLC, PRNTVF, PRNTOU | 
| subroutine | | | 
tus epa os A E A AS A A E E d CE 4 
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Table OPL, Phase UF Routine/Subroutine Directory 


pem memes mm t — — — —À — më — mm pn —— em e —— ve —— — en me m vm — mm re es — a 9 — A vm ve O a m P — e — € M x E a a — M a M i n a daa a aa na we mm mp MÀ — 


IRoutine/Subroutine| Function 

| ABSOFF |Appends literal offsets to operands in variable part of print line. 
| | 

| ADDEND |Appends signed literal offsets to operands. 


ESA 
neus (UG) 
de (UG) 
Geer 
TE 
|HEXINT (UG) 
PN 
dio 
ee 
fore (UG) 
re (UG) 
Ge 
ee 
Vtc 
Weber 
eege 
Ve (UI) 
e 
re (UG) 


| 
|IL0020 


| 
| IL0026 


| 
[ILOO27 


|NAMEVF (UG) 


| 
|NEXTEL (UG) 
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{Generate listing of text for base offset pair. 


|Places one character in variable field of print line image. 


[Converts binary to externally coded decimal. 


[Chains to next input block. 


[Locates label number taple entries. 

yan binary to externally coded hexadecimal. 
Entry point from compiler control. 

Scans text, 

Entry to scan from initialization routines. 
Lists procedure names. 

Lists ends of procedures. 

Lists RR instructions. 

Lists RX non-branch instructions. 

Lists SS instructions. 

Processes the start of prologues. 

Processes the end of prologues. 

End-of-text routine, and compiler subroutine listing. 


Processes compiler genereted label numbers. 


Lists branch and load address instructions. 
Lists snift instructions. 

Lists LM and STM. 

Lists SI instructions. 


Processes SS decimal instructions. 


Prints "*PROCEDURE" foliowed by entry names and statement number. 


Identifies operands. 
Determines name and offset from dictionary entry. 


Nares generated label number. 


| 
| 
l 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
[Lists lakels. 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
1 


GE ——— Á—————— eg 1 


and mnemonic of codes. 


places it in print image. 


field part of print line. 


second instruction byte 


Table UF1. Phase UF Routine/Subroutine Directory (cont'd) 
|Routine/Suoroutine| — 0000000000000 Function ^0 0000000000000 1 
[NEXTSL (UG) Scans dic lonsey for mule toe salen A 
Anita: (UH) faenum return point in naming routine. 
eer (UG) PET location counter value, hexadecimal, 

| PRNTLC (UG) HN location counter to hexadeciral; 
lago (UG) fee a line. 

acne (UG) em variable iength item into variable 

eee VIN eee RR format listing of text. 

een E ahead for literal offsets; inserts 

| [into print image. 

sca (JG) ee statement numbers. 

emeng (UG) [converts statement number to decimal. 


LA — ee em wn, masè swe E Wë me eo ee anme ee mm 
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Table XA. Phase XA Error Message Editor 


peu E E Np Se a p re rese A ore tae | 
| [Main Processing] | 
| Statement or Operation Type | Routine | Subroutines Used | 
ļ---------------------------------—- ł--------------- ł----------------------------------- 4 
[Determines whether error messages  |XA | None 

lare to be printed | | | 
|-----------------------------------}---------------}----------------------------------- y 
[Scans error message text skeletons |XA8 |XA50, XA70, XA90, XA110, ZUPL | 


[and prints them out | | | 


Table XA1. Phase XA Routine/Subroutine directory 





[Routine/Subroutine| Function 

o [Determines whether error messages are to be printed. ` 
x m severity code. | 
|XA01 |Establishes which message types to suppress. | 
Bos Ver number of error chains to be processed. | 
| XA2 m cut messages if there are no diagnostics. | 
pon dcs out "COMPILER DIAGNOSTIC MESSAGES". | 
ao D Scan of message chains. | 
m re error message text skeletons and prints them. | 
[XA9 (XE) seins to head of next non-empty chain. | 
| XA12A [Selects and prints header for messages of given severity. | 
free (XE) ND next entry in message chain. | 
ree (XB) re up first part of message in buffer. | 
E (XP) Pereis message skeleton. | 
EN (XB) i epa out completed message. | 
I[XA50 (XB) TT message text to print buffer. | 
IXA70 (XB) orsi n binary statement number to character representation, and | 
| [moves it to print buffer. | 
er (XB) ote binary numeric value to character representation and moves | 
| lit to print buffer. | 
ER (XB) [Moves identifier from dictionary entry to the print area. | 
GE [Prints a line on SYSPRINT data set. | 
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This appendix relates the logical 
physical phases, 


es, 


within the physical phases. 


name is IEMAA. 


PHYSICAL 


PHASE ` MODULES 


Control 


AC 


AD 


AE 


AF 


AG 


AH 


AI,AJ 


AK 


AL 


AM 


AN 


BX 


JZ 


AV 


phas- 

and modules contained 

The compiler 
DESCRIPTION 


Controls running of 
compiler 

Performs . detaiied ini- 
tialization 

Writes records on 
intermediate file 
SYSUT3 

Performs interphase 


dumping as specified in 
the DUMF option 


End of read-in phase 


Controls system genera- 
tion compiler options 


Closes  SYSUT3 for out- 
put, reopens for input 
Format annotated  dic- 
tionary dump 

Format  annctated text 
dump 

Closing phase of com- 
piler 

Controls extended dic- 


tionary compilation 
Phase marking 


Ccntrols normal  dic- 


tionary compilation 


48-character set prep- 
rocessor 

Builds second half 
phase directory 
Resident phase for 


compile-time processor 


Initialization 
for compile-time 
essor 


phase 
proc- 


APPEN 


DIX A: 


GUIDE TO PHASES AND MODULES 


BC 


BG 


BW 


BC, BE, BF 


BG,BI,BJ 


EM, EN 


BC, EV 


Initial scan and tran- 
slation phase for 
compile-tine processor 


Final scan and replace- 


ment phase for compile- 
tine processor 

Error message printout 
phase 

Contain the diagnostic 
messaces 

Cleanup phase for 


compile-time processor 


CI 


CL 


CO 


CS 


CV 


ED 


— — — 


EG 


EI 


EL 


Appendix A: 


CC 


CE 
CG,CI 
CK 
CL,CM 
CN 
CO,CP 
CR 
CS,CT 


CV,CW 


EL 


EF, EG 


EH,El,EJ 


ER, EL, Em 


EP 


Guide to Phases and Modules 


Réad-in phase common 
routines 

Read-In phase corron 
routines 

Keyword tables 

Read-In pass 1 

Keyword takles 


Read-In pass Z 
Keyword 
Read-In pass 3 
Keyword tables 
Read-In pass 4 


Read-In pass 5 


Initializaticn, 
subroutine package 
Declare Pass 2 


for 


Initialization 


First pass over DECLAKE 
statements 
Second pass over 
DECLARE statements 


Constructs dictionary 
entries for PROCEDURE, 
ENTRY and CALL  state- 
ments 
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EW 


FI 


FK 


FO 


FQ 


FT 


FV 


FX 


GP 


dr 


HK 


HP 
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EV, EW 


FA, FB 


FE,FF 


FI 


FK 


FO,FP 


FQ 


FT,FU 


FV,FW 


FX,FY 


GB,GC 


GK 


GO 


GP,GQ,GR 


GU,GV 


HF,HG 


HK,HL 


HP 


Constructs dictionary 
entries for LIKE attri- 
butes 


dictionary 
entries for ALLOCATE 
and for explicitly 
qualified based  varia- 
bles. 


Constructs 


Checks context of 
Source text 


Changes BCD to dic- 
tionary references 


Checks validity of dic- 
tionary references 


Rearranges attributes 


Constructs dictionary 


entries for ON- 
conditions 
Checks validity of 


PICTURE chain 


Dictionary 
house-keeping 


Merges second file 
Statements into text 


Processes identifiers 
for cross reference and 
attribute listing 


Constructs DECLARE and 
OPEN control blocks 


Modifies I/O statements 


Checks parameter match- 
ing 


Preprocessor for second 
check on parameters 


Second check on paran- 
eters 

Processes CHECK  condi- 
tion statements 
Processes Structure 
assignments 


Processes array assign- 
nients 


Processes items defined 
using iSUBs 


[IA 


1JI 
| 


IJI 
JK 


JP 


LA 


LB 


LD 


LG 


LR 


LS 


LV 


| LW 


{LX 


ME 


IA,IB,IC 


IG 


IL 


IM,IN, 
IP,IQ 


IA 


JI,JJ 


JI,JK,JL 
JK,JL, JM 


JP 


LG, Li 


LR 


LS,LT,LU 


LV 


LX,LY 


MB, MC 


MD 


Stacks 
operands 


operators and 


Processes array and 
structure arguments and 
built-in functions 


Preprocessor for gener- 
ic functions 


Processes generic func- 
Ic functions 


Processes function tri- 
ples 


POINTER and AREA check- 
ing 


Evaluates constant 


expressicns 


Structure 
pre-preprocessor 


Structure preprocessor 
Structure processor 
Checks DEFINED chains 


Phase 


Utility scanning phase 


Generates triples to 
initialize AUTOMATIC 
and CONTROLLED scalar 
variables 


Constructs dictionary 
entries for initialized 
STATIC scalar variables 
and arrays 


Expands DO loops 


Initialization for 
Phase LS 
Converts expression 


triples to pseudo-code 


Provides string han- 
dling facilities 


Initialization for 
phase LX 


Converts string triples 
to pseudo-code 


Constructs  pseudo-code 
for pseudo-variables 
func- 


Scans for ADDR 


ME 


MG 


MI 


MK 


MI, 


MS 


N A 


NG 


NJ 


NT 


NU 


OB 


OD 


OE 


OG 


OM 


MG,MH 


MI,MJ 


MK 


ML 


MM,MN,MO 


MP 


MS,MT 


NA 


NJ, NK 


NM, NN 


NT 


NU, NV 


OB,OC 


OD,OE,OF 


OG,OH 


OM,ON,OO 


tions and 
code for each 


generates 


Constructs  pseudo-code 
for in-line functions 


Constructs  pseudo-code 
for in-line functions 


Constructs  pseudo-code 
for in-line functions 


Constructs  pseudo-code 
for in-line functions 


Processes generic entry 
names 


Processes CALL and 
function procedure 
invocations 


Reorders BUY and SELL 


Statements 


Constructs  pseudo-code 
for subscripts 


Generates 
for branches, 
triples, etc. 


pseudo-code 
RETURN 


Generates Library call- 
ing sequences for DELAY 
and DISPLAY statements 


Generates Library call- 
ing sequences for exe- 
cutable RECORD-oriented 
input/output statements 


Generates Library cail- 
ing sequences for exe- 
cutable STREAM-oriented 
input/output statements 


Pre-processor for NU 
Generates Library call- 


ing sequences for 
data/format lists 


Processes compiler 
functions and pseudo- 
variables 


Pseudo-code assignment 


Constructs  Pseudo-code 
for assignments 


Generates library 
calling sequences 


Generates pseudo-code 
for data type conver- 
sions in-line 


— — — 


OS 


| PA 
| 

PD 
PH 


PL 


PP 


| PT 


QF 
[QJ 


[OX 
i 


[RA 


RE 


TF 
TJ 
TO 


TT 


| UE 


UF 


| UI 
| 
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OP,OQ 


OS,CT,OU 


PA 


PD 


PH 


PL,PM 


PP 


PT,PU,PV 


YF, QG, QH 


QJ QK, QL 


CA 


RA,RB,RC 


XE,RG,RH 


Generates pseudo-code 
for further in-line 
conversicns 


Converts constants to 
required internal form 


Puts eligible DSA's 
into STATIC 

First STATIC storage 
allocation phase 

Second STATIC storage 
allocation phase 
Constructs symbol 


tables and DEDs 
Sorts AUTOMATIC chain 


Allocates AUTOMATIC 


storage 
Constructs prologues 


Allocates DYNAMIC stor- 
age 


Lists lengths of aggre- 
gates 


Processes addressing 


mechanisms 


Allocates physical reg- 
isters 


TJ,TK 
TO, TP, TG 
TT, TU 


UA, UB, UC 


UD,UB,UC 


UE,UB,UC 


UF,UG,UH 


UI,UG,UH 


Assembly first pass 
Optimizaticn 
Produces ESD cards 
Assembly second pass 


Final assembly initial 
values, first pass 


Generates RLD and TXT 
cards to set up dope 
vectors for STATIC DSAs 


Final assembly initial 
values, second pass 


Produces listings 


Completes final  assem- 


bly listings 
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| Error Editor 


XA 


338 


XA 


XA,XB 


Determines 
there are 


constructs 
phase list 


whether 


diagnostic 
messages to be printed 


the 


third 


AA, XC 


AF 


XG, YY 


Controls the printing 
of messages 
Message address blocks 


Contain the diagnostic 
messages 


| COMPILER PHASE-IN-STORAGE MAP jer. Modules on a vertical line may never 
{be in storage together. This map rep- 
|resents the  'worst' case, and does not 

| In this phase-in-storage map, modules on [always reflect the order of loading. 

| à horizontal line may be in storage togeth- 
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AA AB AF 


7“ VM 
in ADAC AM L Ap L AD 





BX AG GO LA LV 
AS AV GP GQ GR NM NN 
BC BE BF GU GV NT 
BG BI BJ HF HG NUNV 
AE HKHLHM |loBoOC 
BMBNBOBR HP OD 
BS IAIB IC OE OF 
BT IG OGOH OI 
BU IK IL OMON OO 
BV IMINIO OP OQ 
BWAG IP OSOT OU 
CACC IQ PA PD 
CECCCI IT PH 
CKCL CM 1X PL PM 
CNCOCP JD PP 
CR JIJJ PT PU PV 
CS CT JL JM JI QF QC OH 
CV CW JK QJ QK 
AE JP QU 
EF EG ED JZ QX 
EHEI EJ LA LB LC RA RB RC 
EK EL EM LD RF RG RH 
EP LG LH TF 
EV EW LR TJ TK 
EX EY EZ LS LT LU TO TP TQ 
FA FB LV LY TT TU 
FE FE LW LX UB UC UA 
FI MB MC UD 
FK MD | VEUD 
FO FP ME MF UF UG UH 
FQ MG MH UI 
FT FU. MIMJ XA XB 
FV EW MK XC XF 
FX FY FZ ML XG 
GA MM MN MO XH 
GB GC LV MP XI 
GK l MS MT XJ 
NA NB XK 
NG NH XL 
NJ NK XO 


eFigure 7. PL/I Phase-in-Stcrage Map 
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three resident tables: the 

keyword tables, ano the 
phase  airectory. The dictionary is resi- 
dent through part of the compilation; the 
formats of the dictionary entries are fully 


There are 
dictionary, the 


described in Appendix C. The keyword 
tables are resident during the read-in 
logical phase, and the phase directory 


throughout the compilation. 


The read-in 
passes containing 
Figure €. 


phase is divided into five 
the modules shown in 


Modules CA and CC contain routines which 
are common to all five passes. Successive 
blocks of routines overlay the areas used 


in the first pass by modules CE, CG, and 
CI. The keyword tables are held in separ- 
ate modules (CE, CK, CN, and CR) which mugt 
each be less than 1,024 bytes (1K) long. 
1 
pene 1 | 
| | | 
[ CA Fd 
| 1 | 
Lino J > Common Routines 
| 
peu 1 | 
| cc || 
pres J| 
j 
xmi M CREE T T 
| | 
r-------- do d. a q | A 1 
| CE | d | CK | d | CN | 
LS E Y. Erro d. IN A J 
| | 
Keeser 3 DE eege gp ub vo pasa m 1 
| loll | d | | 
| eG | | | ch | | | ca | 
| | d | I d | | 
buch s ae ee Jo o^ kieres J 
| | 
passo 1 ND (res 4. e Ase 1 
| | | | | d | | 
| CI KA A œ | | A CP | 
| I d. | I | | | 
Luder. d ZE, bant de DË Jere J 
| | 
Pass 1 | Pass 2 | Pass 3 


e Figure 8. Organization of Read-In Phase 


APPENDIX B: RESIDENT TARLES 


to hold in 
which are 
The keyword 

following 


In this way it is possible 
Storage only those keywords 
required for any one pass. 
tables are constructed in the 


ranner. 


For ease of searching and modifying a 
keyword takle, it is organized into two 
levels and by keyword length, as shown in 
|Figure 9. 


of 
is 


The KEYWD routine is called by one 
the statement scanning routines, and 
supplied with a parameter which enables it 
to decide which set of keywords to look at 
(e.g., Statement identifier, CN condition, 
miscellaneous). It dces this by using the 
parameter to extract the required relative 
address  (R(A),etc.) from the first level 
directory. The second level directory pro- 
vides the KEYWI routine with the means of 
reaching a cable containing keywords of 
correct length; the KEYWD routine calis the 
KEYID routine, which scans the next  signi- 
ficant item in the source text to obtain 
the length used in this look-ur. 


| 
r-------- al. r-------- 1 
| CR I AR CR | 
Luna da a lt disces J 
l 
r-------- 1 | rp———---- 1 
| H Jä | 
| cs i { | cv | 
| | 4 4d | 
br rc s SR PUN ee eee J 
| 
poo ar Í  r-------- 1 
| i | | | 
| CT loc | CW | 
| |o d | 
EBENE MR M W an J 
| 
Pass 4 | Pass 5 
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| DC Z'393839' 


r 1. BOKMAL or inira LEVEL lables 
p-7------------ 4 RCA) | 
| ------- | First Level 
| r-1 R(B) | Directory The third level tables have a prefix 
| | ------- 1 byte containing the number of entries in 
| | | ROC) [--4 this particular table followed by keyword 
| | ------- 4 | entries. These consist of the keyword in 
| | | | | internal code plus the replacement charac- 
| l | | | ter (keywords recognised as such are 
| | | replaced py a single code byte). 
| | | 
| === aa: du do a 1 
Al>| | Bt>| | €*»| | Second 
------- 1 L------ 1 ------- ] Level STLm DC FL1'x' where x is number of 
| | | | | | Direc- keywords in this table 
}------ 1 I------ 4 }------ { tory | 
| | | | | | DC X'112315' keyword in internal 
Loure J ------- 1 F------ H code 
| | | | 
ļ------ 1 | | DC X'55' replacement in internal 
| | code 
[------ 1 
| 
| 


DC X'5A' 
eFigure 9. Organization of Keyword Table 
Some keywords are not represented by one 


word  (e.g., GO TO, BY NAME, and clearly, 
the mechanism must be modified to cope with 


Format of First Level Directory the second word. This modification is 
achieved by  OR-ing a 1-bit into the first 
bit of the first level. The presence or 

FSTLVL DC AL2(STATID - FSTLVL) absence of this bit is tested by the KEYWD 
routine before the suspected keyword is 
DC AL2(ONID - FSTLVL) compared. If the bit is absent, the pass 


through the routine is quick, as there is 
no possibility of an extra level search. 
If the bit is present, the keyword must be 
compared after the additional bit has keen 
AND-ed out. If the comparison is equal, 
the two bytes following the replacerent 

Format of Second Level Directory character are used as a relative address to 
reach the next level table. 


The second level tables contain relative 
addresses, which enable the KEYWD routine 
to reference a third level table containing 
keywords of the correct length. If one of Format cf Entry Requiring Additicnal 
these entries should contain zero, then Comparisons 
KEYWD will interpret this as meaning that 
no keywords of this length exist in this 
table. DC X'9726" GO + x'1000' 


DC X*40! 
STATID DC FL2'm' where m is smallest 
length in table DC AL2(N XTLVL-*) Relative address 
of next level takle 
DC FL2'n' where n is largest 


lengtn in table The format of these extra level tables 
is similar to that fcr the third level. in 
DC AL2(STLm-STATID) this way, it is possible for naticnal 
language keywords to replace single wcras 
DC AL2(STLn-STATID) where the by two or more words, if so desired. 


symbols beginning STL are 
the symbolic addresses of 
the corresponding keyword 
tables 
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PHASE DIRECTORY 


Because of the number of phases in the 
compiler, the phase directory is split into 
halves. The first half is constructed 
during the initialization of the compiler; 
also a list of names of the phases in the 
second half is kept in Phase AA. This list 
is used to pass status indications (i.e., 
whether phases are wanted or not wanted) 
from the first half to the second half. 
Phase JZ uses the list to construct a new 
directory for the second half. 


The phase directory is constructed ky 
use of the BLDL macro and a build list. 
The format of the build list is fully 


Form C28-6541. 


Each entry in the build list is 30 bytes 
long. On returning from the BLDL macro, 
two bytes of the name field and ten other 
bytes of each satisfied entry in the build 
list are used to construct a 12-byte phase 
directory entry in the compiler control 
routines. The build list is destroyed 
after the initialization process is com 
plete. 


The format of a phase directory entry is 
as follows: 


Byte Number Description 


1-2 Phase name 
3 Status byte 
4- 5 Concatenation number and 


Library identification 


6 - 8 TTR of first text record; 


where TT is the relative 
track number, and R is the 
block number on that track 


9e 10 Total amount of storage 
required 
11 12 Length of first text record 
Control Code Word -- CCCODE 


The format of the control code word 
(CCCODE), which is four bytes in length, is 
as follows: 


Byte Bit 


0 0 DUMP 1 wanted 
O not wanted 


VI 


LD E Wh 


LIST E 


LOAD 1 


DECK 1 


EXTKEF L 


XREF 1 


ATR 1 


akort has occurred 


not wanted 
wanted 


not wanted 
wanted 


not wanted 
wanted 


not wanted 
wanted 


not wanted 
wanted 


not wanted 
wanted 


means U-format 
reans F-format 
records on input 


if track overflow 
is present 


Severity ccde 
Severity code 
Severity ccde 
Severity code 


CHAR 48 1 
0 
MACRO 1 
0 
SOURCE 1 
0 
CHK 1 
0 
BCD 1 
0 
SOURCE2 1 
0 
OPT 1 
0 
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where  0000-FLAGW 
0001=FLAGE 
0010=FLAGS 


not wanted 
wanted 


not wanted 
wanted 


not wanted 
wanted 


not wanted 
wanted 


BCD input 
EBCDIC input 


wanted 
not wanted 


wanted 
not wanted 


Resident Tables 
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5 1 AE required 


6 1 program check 
has cccurred 


7 1 means first record 
has been read 


3 0 STMT 1 not wanted 
0 wanted 
1 MACDCK 1 not wanted 
0 wanted 
2 COMP 1 not wanted 
0 wanted 
3 1 macro phase now 
running 
4 1 batch record found 
O batch record not 
found 
5 1 EOF record found 
O EOF record not found 
6 not used requirement 
7 NEST 1 wanted 


Ó not wanted 
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APPENDIX C: 


describes the formats of 
dictionary entries during the compilation 
of a source program. The appendix is 
organized in the following manner: 


This appendix 


1. Dictionary entry code bytes 
2. Dictionary entries for ENTRY points 


3. Code 


bytes for ENTRY dictionary 
entries 
4, Dictionary entries for DATA,  LABLL, 
and STRUCTUAE items 
5. Code pytes for LATA, LABEL, and STRUC- 


TURE dictionary entries 


and OFFSET 2 
and STRUCTURE 


6. Uses of the OFFSET 1 
Slots in DATA, LABEL, 
dictionary entries 


7. Dictionary entries for: 


iabel constants 

data constants 

formal parameters 

FILE entries 

TASK and EVENT data 
internal library functions 
parameter descripticns 

ON conditions 

PICTURES 

expression evaluation workspace 
dope vector skeletons 
symbol table entries 
AUTOMATIC chain definiticns 
DED dictionary entries 

FED dictionary entries 
temporary dope vectcrs 

ECD entries 

second file statements 


8. Dimension tables 


1. DICTIONARY ENTRY CODE BYTES 


——— MÀ — —ÁÀ——— anm aie ana — ——— —————————— —— ——— 


The dictionary is used to communicate a 
complete description of every element of 
the source program, the compiled object 
program, and the compiler diagnostic messa- 
ges between phases of the compiler; the 
text describes the operations to be carried 


cut on the elements. 


Each type of element has a charac- 
teristic dictionary entry, which is  iden- 
tified by a code occupying the first byte 
of the entry. In general, each type cf 
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Internal Formats of Dicticnary Entries 


INTEKNAL FORMATS CF DICTICNARY ENTRIiS 


nas a different code byte, but in 
order to permit rapid identification of 
dictionary entries, the code bytes have 
been allocated on the following basis: 


element 


Bit Bit 
Position Value Meaning 
0 0 entry has ECC 
1 entry has no ECD 
1* 0 entry is to be chained 
1 entry not to be chained 
Z 0 not a member cf structure 
1 merker of structure 
3 0 not dimensioned 
1 dimensioned 
*This bit only applies to Phase FT which 
constructs the storage class chains by a 
Sequential scan of the dictionary; later in 
the compiler, itens with this bit on are 


added to the storage class chains. 
Second Half Byte 
In the second half byte, 


[codes have the meanings shown, 
|first half byte is X'C': 


the following 
unless the 


data variable 
label variable 
structure 


x! Ft 
x'7" 
X'E' 


reans. 
means 
means 
The second and third kbytes of every 
dictionary entry contain the length, in 
bytes, of the entry. If the entry has BCD 
(i.e., the first bit of the entry is zero), 
this length count does not inciude the ECD; 
instead, the BCD, which follows the main 
body of the entry, is preceded by a single 
byte containing one less than the number of 
characters of ECD. 

Using this general schere, the code 
bytes allocated for dictionary entries 
appear in the following table. Code bytes 
in the taple which have no corresponding 
description are not allocated. 


Statement label constant 

01 Procedure or entry label 

02 GENERIC entry label 

03 External entry label (entry type 4) 

Ou Built-in function, €.g., DATE 

05 Temporary variable and controlled 
allocation workspace 

06 Built-in GENERIC label, 


e.g., SIN 
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3E 
3F 


40 


346 


Label variable 
File constant 


Task identifier 
Event variable 


Data variables (not dimensioned or a 
structure member) 


Dimensioned label variable 


Dimensioned task identifier 
Dimensioned event variable 


Dimensioned data variable 


Label variable in structure 


Task identifier in structure 
Event variable in structure 
Structure item 

Data variable in structure 


Dimensioned and structured label 
variable 


Dimensioned task identifier in 
structure 

Dimensioned event variable in 
structure 

Dimensioned structure item 
Dimensioned and structured date 
variable 


Formal parameter type 1 


8A 
8B 
8C 
8D 
8E 
8F 


ON CONDITION entry 


ENTRY type 1 -- from a PROCEDURE 
Statement 

BEGIN statement entries -- entry 
type 1 

ENTRY statement -- entry type 1 
Entry type 5 

Entry type 3 

Entry type 2 

Entry type 6 

Label variable formal parameter or 
tempcrary 

Constant 

File formal parameter or file 
temporary 


Task identifier formal parameter 
Event variable formal parameter 


Data variabie formal parameter or 
temporary 


Invocation count dictionary entry 


Dimensioned variable formal parameter 
or temporary 
File attribute entry 


Dimensioned task identifier formal 
parameter 

Dimensioned event variable formal 
parameter 


Dimensioned data variable formal 
parameter or dimensioned temporary 


Structured label variable temporary 


AB 
AC 
AD 
AE 


AF 


Structured task identifier temporary 
Structured event variable temporary 
Temporary or formal parameter 
Structure 

Structured data variable temporary 


Dimensioned and structured label 
variable temporary 


Dimensioned and structured task 
identifier temporary 

Dimensioned and structured event 
variable temporary 

Dimensioned structure formal 
parameter or temporary 
Dimensioned and structured data 
variable temporary 


String dope vector for temporary 
DED2 entry 

Internal library function, 
conversion routines 
Compiler label 

Prefix ON list item 
Parameter lists 

Dope vector skeletons 
Symbol table entry or DED entry 

Error message, table entry, workspace 
requirement, STATIC DSA, etc. 

Record dope vector (RDV) entry 
Workspace requirement entry 

Select a member from a generic family 
AUTOMATIC chain delimiter or Dope 
Vector Descriptor (DVD) entry 

ON condition entry 

Label BCD entry 

End of information in dictionary 
block 


e.g., 


DICTIONARY ENTRIES FOR ENTRY POINTS 


ee ÉLIL—————— II IL ————————L—————— 


— MÀ —Ó anm m —Ó——ÓÀÀM—À — —— m A4——————X——— 


ew a monte — — — —— ———— ——— — 


The 


format of an entry for a PROCEDURE 


Statement is as follows: 


Code byte x'80' 


Length 
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10-11 


12-13 


14-15 | 
16-17 » 
18-19 | 


20-21 


22-23 


24-25 


26-28 


29-31 


32-34 


35-37 


38-40 


41-42 


Internal Formats 


Level 
Count 
Dictionary reference to the 


entry type 1 of the contain- 
ing block 


Dictionary reference of the 
dictionary entry for the 
first label that Was 
attached to the PROCEDUKE 
statement 

Dictionary reference to the 
entry type 1 of the next 


PROCEDURE or BEGIN statement 
in the source program 
The Start of the chain of 
all AUTOMATIC variables 


Dictionary references to 
three dictionary entries 
indicating storage require- 
ments for workspace 


Dictionary reference of 
CHECK list 
Dictionary reference of 


NOCHECK list 


Dictionary reference of the 
first symbol table entry for 
this block 

the for this 


Size of DSA 


block 


Offset of the eight words in 
the DSA used fcr addressing 
the DSA 


Offset of the storage used 
for the paramever list nec- 
essary in an ALLOCATE- FREE 
Statement 


Cffset of the two-byte 
Switch which is set on entry 
to a procedure and tested at 
a RETURN (expression) 


Offset of the fcur-byte slot 
which will contain tne 
address of the first approx- 
imation of the target field 
(the address of the implied 
parameter) 


Dicticnary reference of the 
entry type 1 of the first 
ENTRY statement of the pro- 
cedure. The entry type 1 
for PROCEDURE and ENTRY 
Statements of any one vroce- 
dure form a circular chain. 
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If there are no ENTRY state- 
ments in a procedure this 
slot will contain the dic- 
tionary reference of the 
PROCEDURE'S entry type 1, 
i.e., of the entry in which 
the slot occurs 


43 OPTIONS code kyte 

44-57 Eight 2-byte dictionary ref- 
erences to dictionary 
entries for prefix options. 
Only those prefix options 


which are changed within the 


procedure have a dictionary 
reference. The remainder 
are zero. The order of the 


options in this list is the 
same as in the options byte. 
(See "Options Code Byte" in 
this Appencix) 


60 Options change byte. This 
byte contains a one bit for 
each prefix option which is 
changed witnin the proce- 
dure. Its format is identi- 
cal with the normal options 
byte 

61-63 Offset of workspace used in 

BUY statement 


64 Optimization byte 


65 2*n where n is the number of 
parameters at this entry 
point 

references of 


66 onwards N dictionary 


formal parameter type d 

entries 
The format of an entry for a BEGIN 
statement is similar to the above for the 


first 34 bytes. The initial code byte is 
X'81', and the dictionary reference in 
bytes 8 and 9 is that of the first label on 


the original BEGIN statenent, if any. If 
there was no statement label, then the 
Statement number occupies this slot. The 


presence of a statement number or statement 


label is indicated by a flag byte in 
position 35. This is set to 3N for a 
Statement number, or to SL for a statement 
label. Bytes 36-56 contain the same as 


bytes 44-64 in a PROCEDURE entry type 1. 


The format for the entry tyre 1 derived 
from an ENTRY statement is as follows: 


Eyte Number Description 
1 Code byte X'82' 
2-3 Length 


348 


10-12 


13 


14 onwards 


The latels 
statement 


Level 


Count 


Dictionary reference of the 
next member in the circular 
PROCEDURE-ENTRY chain 


Dictionary reference of the 
dictionary entry for the 
first label cn the original 


ENTRY statement 


The offset 
entry point 


of the apparent 
2*n where n is the number of 
parameters 


n dictionary references to 


the formal parameter type 1 
entries 
on a PROCEDURE or ENTRY 


will be placed in the dictionary 


according to the following format: 


Byte Number 


12-13 


14-16 


Code byte X'01' 

Length 

Hash chain(STATIC chain) 
Pointer to transfer vector 
Statement numker 


Other 1 
"First 


code byte. (See 
code kyte - other 1" 
in this Appendix.) The last 
bit will always be set to 
one, unless the label is tne 
last label for a particular 
Statement, in which case the 
last bit will be set to 
zero. 


Pointer to entry type 2 


Spare bytes for final assem- 
bly. The pseudo-code phase 
dealing with RETURN 
(expression) will insert 
into these bytes a code 
which must be stored in a 
Specific slot in the DSA 
whenever the procedure is 
entered via this label. The 
code is used ky the prolcgue 
construction phase. Byte 16 
in the first label for each 
PROCEDURE or ENTRY statement 
Will contain the number of 
lakels associated with that 
statement 


LT 


18 


19 


20 


21 


An entry 
attributes of an entry point. The 
is as follows: 


Byte Number 


10-12 


13-14 


type 2 


Block level 


Block count 


Count of containina block 


BCD length-1 


BCD of label 


describes the Gata 
format 


Code byte X'85'. 
Length. 


Dictionary reference of 


entry type 3 


Offset, i.e., the position 
of the string dope vector in 
the DSA of the block to 
which the entry belongs. 
This will be zero if the 
item is not a string. 


DATA byte (see "DATA Byte" 
in this Appendix). 


Data information, which is: 


data, the 
Scaling, 


1. with numeric 
precision and 
left justified 

2. for strings of fixed max- 
imum length, the binary 


version of the string 
length in the two left- 
most bytes of tne data 


information 

3. for strings of adjustable 
length, the text ref- 
erence of a second file 
statement civing the 
expression for the string 
length 


Picture table reference, if 
required. The storage allo- 
cation phase will change 
this to the dictionary ref- 
erence of a DED entry, the 
picture table reference 
being moved into this refer- 
ence if necessary 
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Entry Type. 3 


Entry type 
either fror 


constructed 
laration 
rules. 


Byte Number 


11 


12-13 


14-15 


16-17 


18-19 


Their 


3 dictionary entries are 
an explicit dec- 


from implicit and default 


format is as fcllows: 


Descripticn 


Code kyte x'8u' 
Length of entry. 


Dictionary reference of 
entry type 1 cf PROCEDURE or 
ENTRY statement. 


Dictionary reference of 
entry type 2. This des- 
cribes the value returned 
when the label associated 
with this entry type 3 is 
invoked as a function. 


The offset in the DSA of the 
containing block oí the 
first approximation of the 
storage for the value 
returned by this entry 
point, when it is invoked as 
a function. 


Tne entry code byte. (See 
"Entry Code Eyte" in this 
Appendix.) 


The dictionary reference of 
an item in the AUTOMATIC 
chain of the containing 
block. Entry type 3 entries 
feature in the AUTOMATIC 
chain of the containing 
block. 


Switch bytes. The pseudo- 
code phase dealing with 
RETURN (expression) inserts 
into these kytes the kit 
pattern of the code which 
will signify that entry to 
the procedure was by the 
lapel associated with this 
particular entry type 3. 
Phase CF will use this to 
create MVI instructions. 


Dictionary reference of a 

SETS. list. This will be 
zero if the attribute SETS 
was not specified. The for- 
mat of a SETS list is given 
at the end of this section. 


Dictionary reference of the 
dictionary entry for the 
label belonging to this 
entry type 3. 
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20 


21 


22 onwards 


22+2n- 
23+2n 


Status byte. This byte will 

contain x'0o* or X'FÜ', 
x'00' indicates that the 
entry was constructed from 
an ENTRY declaration which 
had parameter descriptions. 
X'FO' indicates the entry 
was constructed either arti- 
ficially or from an ENTRY 
declaration which did not 
have parameter descriptions. 


2*n where n is the number of 
parameters. This is zero if 
the status byte is X'FF' 


If tne status byte is x'00' 

there are n two-byte ref- 
erences of parameter  des- 
criptions. A parameter des- 
cription is a dictionary 
entry for the particular 
type of item but without a 
BCD. If one particular par- 
ameter is not described, 


i.e. if there are two adja- 
cent commas in the ENTRY 
attribute, then the dic- 
tionary reference is zero. 
When the status byte is 
X'FO' then an entry type 3 


is only 23 bytes long. 


DECLARE statement number 


SETS List Format 
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6-5+2*n1 


6+2*n1 


7+2*n1 
onwards 


Description 
Code byte X'C8' 


Overall length of original 
BCD entry 


2*n1 where ni is the number 
of identifiers in the SETS 
list. If * was specified, 
these bytes contain  2*n1*1. 


Dictionary references of the 
identifiers in the SETS 
list. 


n2, the nurber of para- 
meters in the SETS list. 


n2 numbers of one byte each. 
These are the parameter 
numbers and will be in 
ascending order. 


Entry type 4 dictionary entries describe 


external 
follows: 


12-13 


14 


15 


16-18 


19-20 


21-22 


23 


entry points. 


Their format is as 


Code byte X'03" 
Length 


Hash chain, later used 
as the STATIC chain 


Offset of the load constant 
in STATIC 


Offset in the DSA of the 


declaration block of the 
Storage for the first 
approximation of the value 
returned. 


The dictionary reference of 

an item in tne AUTCMATIC 
chain of the declaring 
block. Entry type 4 entries 
are members of the AUTOMATIC 


chain of the Geclaring 
block. 
The ENTRY byte. (See "ENTRY 


Byte" in this Appendix.) 


The DATA byte. (See "DATA 
Byte" in this Appendix.) 


Data information which is: 

a) with numeric data, tne 
precision and Scaling, 
left justified 

b) for strings of fixed max- 
imum length, the binary 
version of the String 
length in the two left- 
most bytes of the data 
information 

C) for strings cf adjustakle 


length, the text refer- 
ence of a second fiie 
Statement giving the 


expression for the string 
length 


Picture table address if 
required. 


Dictionary reference of a 
SETS list 


Status byte. 
X'00' the 


If this byte is 
reaning is tne 
Sane as the status byte in 
an entry type 3. If tne 
byte is X'FF' it is implied 


that no parameters were des- 
cribed 


24 2*n where n is the number of 
parameters. This is zero if 
the status byte is x'rr' 


25 n dictionary references to 
parameter descriptions as in 
an entry type 3 


25+2*n Level 

26+2*n Count 

27+2*n BCD length-1 
28+2*n 

onwards BCD of identifier 


Entry Type 5 


Entry type 5 dicticnary entries describe 
the entry points which are formal  paramet- 
ers. They have the same format as entry 
type 4 except that: 


Byte 1 is X'83' 


Bytes 4 and 5 contain the address of 
the formal parameter type 1 entry 


6 to 8 contain the offset in the 
the declaring block of the 
Slot associated with a formal 


Bytes 

DSA of 
address 
parameter 


No BCD is contained in the entry 


The format for a GENERIC entry point is 
as follows: 


Byte Number Description 

1 Code byte X'O2" 

2-3 Length 

4-5 Hash chain 

6-8 Offset 1 Slot 

9-10 DECLARE statement number 

11 2n, where n is the number 
of  two-byte addresses fol- 
lowing 

12-11+2n Pointers to entry type 4 


or 5, ENTRY labels, or BUIL- 
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TIN entries. ‘These entries 
are made when an identifier 
is given the attribute  GEN- 


ERIC. The pointers are to 
the entries which contain 
Specifications of the var- 


ious possible attributes 


| 12+2n Level 
| 13+2n count 
| 14+2n BCL length-1 
| 15+2n BCD 
onwards 


This code byte is used in ENTRY type 3, 
4, and 5 dictionary entries. “The format is 
as follows: 


Bit Nunber Description 
1 IRREDUCIBLE 
2 REDUCIBLE 
3 USES 
4 SETS 
5 SECONDARY 
6 RECURSIVE 
7 Has data attribute 
8 Not used 


This code is used in entry type 1 
dictionary entries for PROCEDURE state- 
ments. The format is as follows: 

Bit Number Description 
1 REENTRANT 

| 2 ON Block 
3 MAIN 

l 4 TASK 
5 RECURSIVE 
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6 OPTIONS another chein, €.g.,  AUTO- 
MATIC or STATIC chain 


7 Contains RETURN (expression) 
statement 2-3 Length 

8 ENTRY name is passed as 4-5 Initially contains the hash 
argument chain. After the dictionary 


scan, this is re-used to 
form another chain,  e.g., 
AUTOMATIC or STATIC chain 


6-8 Offset inserted by storage 
allocation phase (as fcr a 
This code byte is used in entry type 1 data item) 
dictionary entries. 
9-10 DECLARE statement number 
Format of the Optimzation Byte: 
11 "Other 1' code byte (See 
Pit Number Description "First Code Byte - Other 1" 
in this Appendix.) 
1 Not eliaible for DSA in 
library workspace. 12 'Variaple' code byte (See 
"Variable Byte" an this 
2 Eligible for DSA in STATIC Appendix) 
Storage. 
13 "Other 2' code byte (See 
3 Needs invocation count. “Second Code Byte - Other 2" 
in this Appendix.) 
y Needs current file slot. 
14 "Other 3' code byte (See 
5 Contains asynchronous CALL. "Third Code Eyte - Other 3" 
in this Appendix.) 
6 Not used. 
15 'Other 4' code byte (See 
7 Not used. "Fourth Code Eyte - Other 4" 
in this Appendix.) 
8 Not used. 
16 onwards Content determined by varia- 
ble code byte. 
4. DICTIONARY ENTRIES FOR DATA, LABEL, AND After variable information 
STRUCTURE ITEMS 
2 pytes Symbol siot 
Label Variables - Obtained from DECLARE 1 Byte Level 
Statement 
1 kyte Count 
1 byte BCD length-1 
Byte Number Description 
ECD 
1 Code byte may be X'07', 


A E O With the exception of the 2-byte syrbol 
NET, XAT, XBT". The slot, the general format is the same as for 
last four cases apply when a structure. 

the item occurred in a par- 

ameter list in a PROCEDURE 

or ENTRY statement. In this 

case, bytes 4 and 5 will Dictionary Entries for Data Items 

contain the dictionary ref- 

erence of the corresponding 


formal parameter type 1 The format is as follows: 

entry. In tne first tour 

cases, bytes 4 and 5 ini- Byte Number Description 

tially contain the hash 

chain. After tre scan of 1 Code byte may be Xx'OF', 
the dictionary, this slot X'1F", X'2FE", x'3F", Xx'8F', 
will be re-used to form X'OF', X'AF', or X'EF'. The 
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wo 


-10 


11-16 


17-19 


20-21 


last four cases apply when 
the item occurred in a par- 
ameter list in a PROCEDURE 
or ENTRY statement. In this 
case, bytes 4 and 5 will 


contain the dictionary ref- 
erence of the corresponding 
formal parameter type 1 


entry. In the first four 
cases, bytes 4 and 5 ini- 
tially contain the hash 
chain. After the scan of 
the dictionary this slot 


will ke re-used to form 
another chain, e.g., AUTO- 
MATIC or STATIC chain 

Length 

See above 

offset. Ses "Format of 
Variabie Information" in 
this Appendix 

DECLARE statement number. 


If the variable has not been 


exolicitly declared, this 
number is zero; otherwise, 
it is the statement numper 


assigned to the DECLARE 
statement from which the 
variable was obtained. 


Six code bytes. These are: 
other 1, variable, other 2, 
other 3, otner 4, and data. 
(See "Code bytes" in this 
Appendix for a description 
of these bytes.) 


Data information, which is: 


1. with numeric data, the 
precision and Scaling, 
left justified 
for strings of fixed max- 
imum length, the binary 
version of the string 
length in the two left- 
most bytes of the data 
information 
3. for strings of adjustable 
length, the text ref- 
erence of a second file 
statement giving the 
expression for the string 
length 


to 
E 


Symbol slot, 
either zerc, 
following: 


containing 
or one of the 


1. If the SYMBOL and DED 
bits are not on, and the 
data iter has a picture, 
these bytes contain the 
dictionary reference of 
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1 byte 


1 byte 


l byte 


These 


ments, i.e., 
attributes or LABEL. 


1 


2-3 


4-5 


entries 
they do not have any data 


the picture takle entry 

2. If the DED bit is on and 
the SYMBOL bit off, this 
slot points at a DELD 
entry. If the item nas a 
picture, the DED entry 
will contain the picture 
table address 

3. If the SYMEOL bit is on, 
the slot will point at a 
SYMBOL entry. This again 
will contain the picture 
address, if specified 


Variable  infcrzation. The 
contents of these bytes are 
determined by the variable 
code byte. See "Format of 
Variakle Information" in 
this Appendix 


Level 


Count 


BCD length-1 


BCD 


do not include base ele- 


Their format is: 


Code byte may be X'2E', 
A'SE', X'AE' or X'BE', The 
last two indicate that there 
is no BCD attached. When 
the identifier occurs in the 
parameter list cf a PROCE- 
DURE or ENTRY statement, 
bytes 4-5 contain the dic- 
tionary reference of the 
formal parameter type 1 
entry. In the case of the 
first two code bytes, bytes 
4-5 of the entry initially 
contain the hash chain. 
This is later modified by 
Phase FT 


Length 


See byte number 1 
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These bytes are used by the 
storage allocator; they will 
finally contain one of the 
following offsets: 


1. For structures which are 
parameters, or are dynam- 
ically defined, the off- 
set from the start of the 
major structures dope 
vector ar the minor 
structures dope vector. 

2. For majcr structures, the 
offset from the start of 
AUTOMATIC or STATIC of 
the address slot which 
will point at the struc- 
ture dope vector 

3. For CONTROLLED struc- 
tures, only that speci- 
fied for minor structures 
in 1 , above 

4. For structures in STA- 
TIC EXTERNAL the contents 
depend on the setting of 
the "dope vector 
required" bit in the 
"other 3" code byte. If 
this bit is off and the 
item is a major struc- 
ture, the slot contains 
the offset from tne start 
of STATIC of the slot 
which will contain the 
address of the first byte 
of tne structure. If the 
dope vector bit is on, 
the Sict contains the 


11-15 


16 


1 byte 
1 byte 


1 byte 


offset fror the start of 
STATIC of the address 
slot which will point at 
the structure dope vec- 
tor. The offset slot is 
not used in either of the 
above cases for minor 
structures 


DECLARE number, i.e. the 
Statement number of the 
DECLARE statement which gpro- 
duced the structure 


Five code bytes. These are: 
other 1, variable, other z, 
other 3, and cther 4 


Variakle information. The 
content is determined by the 
variakle code byte, and will 
always include the informa- 
tion required fcr structure 
members. The format is des- 
cribed under "Format of 
Variakle Information" in 
this Appendix 


After variable infcrmation: 
Level 

Count 

BCD length-1 


BCD 


5. CODE BYTES FOR DATA, LABEL, AND STRUCTUxE DICTIONARY ENTKIES 


m — A A — au —Á— B IM ILLA — r —q o ee ————— —Á— ————————————L—LI—————— III 


pec ree ee uem miti ale enses qvippe remises exte 1 
| Bit | | | 
| No. | Description | Set By | 
ļ----- —————————————————— 4 
| 1 | Symbol or requires load constant if | Phase EL, FT, or | 
| | label constant | NU | 
| | | | 
| bo | | 
| 2 | Defined on | Phase EL | 
| | | | 
| | l | | 
3 | Mentioned in CHECK list | Phase FO | 
| | | | 
| | | l | 
| 4 | Needs DVD | Various | 
| | | | 
| 5 | Last member in structure | Phases EL or EW | 
| | | | 
| 6 | Variable dimensions | Phase EL | 
| | | l 
|7 | * dimensions | Phases EL and FT | 
| | | | 
| 8 | * string length for data item | Phases EL end FT | 
| | | | 
| | --More labels follow for a label | Phase EG | 
| | constant | | 
| | | | 
[ | ---Major Structure - no member af | Phase £Y | 
| | the structure has a dimension or | | 
| | length attribute which is not * | | 
Gi PEN M UT CUN SE NO NT) TA AN PA ERES APE EEE E E EEEE 4 
The Second Code Byte - Other 2 

ee Se ses RN TEA RR NEU ge qure ee 1 
| Bit | Description | Set by | 
| No. | | | 
[----- ł---------------------------=--------- d------------------ 1 
pi | Dynamically defined | Phase EL | 
| | | | 
| 2 | CONTROLLED major structure with | Phase EY l 
l | varying strings | | 
| | | | 
| 3 | NORMAL = O, ABNORMAL = 1 | Phases EI and FT | 
| | | | 
| 4 | Reserved | | 
| | | | 
| 5 | Formal Parameter | Phase EI | 
| | | | 
| 6 | INTERNAL - O, EXTERNAL - 1 | Phase EI | 
| | | | 
| 7 | 00 = AUTOMATIC or DEFINED or simple | Phase EL | 
| | parameter | i 
| and | | | 
| | | | 
| | 01 = STATIC | Phase EL | 
[ | | | 
| 8 | 11 = CONTROLLED | Phase EL | 
Lowes TNCS Langage PUR St AA dsl co fg eiie 4 
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Cr queres ee emere ee e GÈ Noe i eee 1 
| Bit | | 

| No. | Description | Set by 

}----- }------------------------------- }------------------------------ 
| 1 | Needs dope vector | Phases EK and EY if variable 
| | | dimension entries, variable 
| | | string length, or in 

| | | CONTROLLED storage; 

| | | Phase NU when item appears 
| | | in an argument list 

| | | 

| 2 | Needs DED | Phase NU 

| | | 

| 3 | Needs no storage for the item | Phase GP 

| | itself | 

| | | 

| 4 | Correspondence defined | Phase FV 

| | 1 

| 5 | Chameleon | Phase GP 

| l | 

| 6 | Sign bit for first offset | Phase PH for STATIC and 

| l | Phase PT for AUTOMATIC 

| | | 

| 7 | indication of the state of | Phase PH for STATIC and 

| | the value in the first offset | Phase PT for AUTOMATIC 

| | 0 = rubbish | 

| | 1 = good value | 

| | | 

| 8 | AS above but for second | Phase PH 

| | address slot | 

AS e Liu Ead. D EROR E A J 
Ihe Fourth_Code_Byte_-_Other_4 

AS, cee D DRM EE TII E mc QUE 1 

| Bie | | 

| No. | Description | Set by | 
}----- }---------------------- ~--------}-------------------- { 

| 1 | A constant has peen produced | Phase JK | 

l | for this structure or array | l 

| | | | 

| 2 | 00 = Not temporary | Phase GP, HF, HK, | 

| ana | 01 = Temporary type 2 | IM, or LB | 

| 3 | 10 = Temporary not scld | | 

| | 11 = COBOL temporary | | 

| | | | 

| | . | | 

| 4 | Member of defined structure | Phase FV | 

| | | | 

| 5 | Packed = 0 Aligned = 1 | Phase EL | 

| | | | 

| 6 | major structure | Phase EL | 

| | | | 

| 7 | No dope vector initialization | Phase GP | 

| | | | 

| 8 | A temporary type 2 which has | Phase OE | 

| | been incorporated in work- | | 

| | space 1 or RDV required. For | | 

| | COBOL temporaries this bit | | 

| | means RDV required | | 
Lo DARAS AAA A E Lunas J 


prece iuc O EE 1 
| Bit | Description | 
| No. | | 
ļ----- ł----------------------------------- 1 
| 1 | Second address slot | 
| | | 
| 2 | Dimensioned | 
| | | 
| 3 | Member of structure | 
| | | 
| 4 | Value list for label variables or | 
| | POS for defined itens | 
| | | 
| 5 | Initial value if not a\structure | 
| | or LIKE if a structure | 
| | | 
| 6 | EXTERNAL slot | 
l | | 
| 7 | Defined slot | 
| | | 
| 8 | CONTROLLED from ALLCCATE statement | 
kisa ME a il a ee J 


For a detailed explanation of the signi- 
ficance of these bits and a description of 
the extra slots associated with them, see 


"Format of Variable Inforration" in this 

Appendix. 

Data Byte 

LESA Toon ne M e PATA TAPA A TERE ay Te ee ce fe Ze 1 

| | l | | | | | | | 

| BIT {1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 

| | | | | | | | | | 
p--------- }---}------------ ł----------4--------- ł--------- ł--------- ł------- ł--------- 4 

| CAD or | 1 | POINTER/ | Sterling | Long | Cad. | Einary | Float | Complex | 1 
| NUMERIC | | OFFSET * | NCN | Short/ | Numeric | Decimal | Fixed | Real | 0 
| FIELD | | | STERLING | OFFSET | Field | | | | 
}--------- 4---}------------ }---------- }---------}--------- }--------- +------- d--------- 

| STRINGS | 0 | Adjustable | Aligned | Varying | No | Char | AREA | Not | 1 
| | | Length | | | Picture | | VARI- | Used | 

| | | String | Packed | | Picture | Pit | ABLE* | | 0 
| | | | | | | | | | 
boot «cd donee cei n Ls NASA dede Lasse eer E J 


*AREA, POINTER, and OFFSET data byte settings are: 


AREA: 
POINTER: xX'4O! 
OFFSET: X'SO' 


6. FORMAT OF VARIABLE INFORMATION 


Lata items, labeis, and structures 
require pointers to various takles if they 
have certain attributes; for example, if 
they are dimensioned or defined ona base. 
Space will be left for information only if 
the attribute is present. This leads to an 
addressing problem of how to find the 
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X'02' superimposed on the non-pictured CHAR string data byte entry 
superimposed on the FIXED PIN data byte entry 


Superimposed on the FIXED BIN data byte entry 


the information when the pre- 
other attributes alter its 


position of 
sence of 
address. 


The problem is resolved by collecting, 
into one byte, all the attributes which 
require more than one bit to describe them. 
This has taken the second place in all the 
collections of attribute bytes. The pre- 
sence of a bit in this byte indicates the 
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presence of further information. The off- 
set of this information from the start of 
the variable information is given by the 
presence of the bits to the left of the one 
of interest. Each bit will have a value 
associated with it. The sum of the values 
of the bits present and to the left of the 
one of interest will give the value of the 
offset. This is achieved in the coding by 
moving the code byte, masking off the bits 
to the right of the one being tested and 
the bit itself, and translating the byte. 


. The information produced by the presence 
of the following bits in the variable byte 
is as follows: 


Bit number 1: 
The second offset slot is 4 bytes long. 
The contents of this slot are described 
in this appendix. The decisión -to 
include a second offset slot in a 
dictionary entry is based on questions 
about the nature of the identifier. 
Refer to figure 9. 
ro 
|Y| implies that a second offset 

- slot will be given, 


that it will not. 


The dimensioned bit. 
by this is three bytes long. 


The slot produced 
Tne first 


byte will contain the number of  dimen- 
Sions, the next two the dictionary 
reference of the dimension (multiplier) 
table 

Bit number 3: 
Member of a structure tit. This slot 


is ten bytes long and has the following 


format: 
Byte Number Description 
1 Declared level number 
2 True level number 
3-4 Dictionary reference of 


the containing structure 


5=6 Dictionary reference of 
the next member in the 
structure 

7 Alignment 

8-10 Element length 
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Bit number 4: 
POS for defined items. 
slot will contain the FOS 


binary integer. 


The two-byte 
value as a 


Bit number 5: 


initial value or 
four-byte slot. 


LIKE bit is a 


1. For normal initial value. The first 
two bytes contain the dictionary 
reference of the associated 'Initial 
Value' dictionary entry. The fourth 
byte contains X'FO' 

2. For INITIAL CALL. The first three 
bytes contain the text reference of 
a second file statement. The fourth 
byte contains X'Or'. 

3. For initial labels. The first three 
bytes contain tne text reference of 
a set of second file statements. 


The fourth byte contains X'FF*. If 
there is an initial slot but no 
initial values the fcurth byte ccn- 


tains x'oo' 

4. For LIKE. The first two bytes con- 
tain the LIKE chain. The third and 
fourth bytes contain the dicticnary 
reference of the likened structure 


The EXTERNAL bit. This 
contains the ESD number 


2-Lyte slot 


Bit number 7: 


The DEFINED bit. This 7-byte slot 
contains the following: 
Byte Number Description 

1-2 Defined chain. 

3-4 Dicticnary reference of kase 

5-7 The text reference of a 
second file statement. 
After the dictionary these 


bytes will contain X'FFFFFE' 
if the base is unsubscript- 
ed. 


Bit number 8: 

The CONTROLLED from ALLOCATE bit. This 
bit is on for dictionary entries for 
level 1 CONTROLLED data specified in 
ALLOCATE statements. The two-byte slct 
contains tpe dictionary reference of 
the dicticnary entry for the data con- 
structed from the DECLARE statement 


Pi ee ONÈ ki 1 
| Entry | 
sus == q ooo. J 
| 
V 
PA p 1 
Y| IS it data | 
r--{4 item? | 
A ier J 
| [N 
l 
| Sag ae mem dE E A ERO 
| | Is it struc- |N Is it label IN ra 
| | ture? I--------- >| variable? F--^|NI 
| t------- qa ooo. J tasas q oo. J L. 
lo »|&------------------------- Y 
YV 
po D aa Er EE 1 
| Is it formal |Y IS it struc- |N ra 
| | parameter? [--------- >| ture member? }f-->|N] 
| ee q------- J ^ bisaan 7------- J LJ 
IN | LY 
V | V 
=== ==> 1 | ra 
| Is it con- |Y | | Y1 
| }----4 L 
| trolled? | 
konik a qa ooo. 4 
IN 
V 
ESPA A Melo 0 * fp SSeS 1 
| | Y is it ex- [Y ron 
| IS it static? [--------- F--^1YI 
| | ternal? | L-J 
Lots ceri it J lesson espais J 
N | Zem mn JN 
V 
Se Sea Di 1 
| , , IY ro 
| Is it string? þ-->|Y| 
lbt te 1------- 4 LJ 
|N 
V 
Soest eS ee 1 
| Is it struc- (Y ru 
| ture member?  [--»5|Y| 
boca qa. 4 LJ 
IN 
V 
PASA 1 
| IY ea 
| Is it defined?[--»|Y| 
(FEAR en q-7------ J Lod 
IN 
V 
oe n ae 
| Is it dimen- |Y ra 
| sioned? --->|Y| 
Lm ae q7------ 4 t-J 
IN 
V 
ro 
IN] 
LI 


eFigure 10. Decision to Include a Second Offset Slot 
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Uses of the OFFSET1 and OFFSET2 Slots ir 


Entries 


The OFFSET1 slot is in bytes 6-8 of the 
dictionary entry and the CFFSET2 slot is 
part of the variable information. 


r and minor structure entries: 
OFFSET1 slot not used. OFFSET2 slot 
contains offset of structure dope vec- 
tor from start of STATIC INTERNAL  con- 
trol section (if there is a dope 
vector) 

Basic elements: CFFSET1 slot contains 
offset of virtual origin (in the case 
cf dimensioned items) or offset of item 


(when not dimensioned) from start of 
STATIC INTERNAL control section. 
OFFSET2 slot contains offset of dope 


vector (if there is one) from start of 
STATIC INTERNAL control section 


AUTOMATIC Structures 


ant dimensions: as for STATIC 
INTERNAL except that all offsets are 


relative to start of DSA. 





Adjus e dimensions: major and minor 
structure entries: CFFSETI slot not 
used. OFFSET2 slot contains offset of 
structure dope vector from start of DSA 
(if there is a dope vector) 

Basic elements: CFFSET1 slot not used. 
OFFSET2 Slot contains offset cf 
element's dope vector (if there is one) 
from the start of the DSA 


STATIC EXTERNAL and Parameter Structures 


A A —Á——M—M——M————————————————L————ILI—IIIÍLIÉIIÉLIIL 


Major structure entry:  CFFSET1 slot con- 
tains offset of address slot from start 
of data region.  OFFSET2 slot contains 
Size of  EXTERNAL control section. 
(Offset of ma jor structure dope 
vector = 0.) 

Minor structure entries:  OFESÈTI slot 
not used. OFFSET2 slot contains offset 
of structure's dope vector from start 
of major structure dope vector. 
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Basic elements: OFFSET1 slot not used. 
slot contains offset of 
element's dope vector from the start of 


the EXTERNAL control secticn 


CONTROLLED Structures 


Y ana minor Structures: OFFSET1 slot 
not used.  OFFSET2 slot contains offset 
of structure dope vector from point to 
which pseudo register points. (In tne 
case cf the major structure, this value 
will pe zero.) 


OFFSETÍ slot not used, 
OFFSETZ slot contains offset of 
element's dope vector relative to 
address in pseudo-register. 


OFFSET1 slot contains offset cf vertical 
origin of the array relative to start of 
data region.  OFFSET2 slot contains offset 
of dope vector (if there is one) from the 
start of the data region. 


Constant dimensions: as for STATIC 


Adjustable dimensions: OFFSET1 slot not 
OFFSET2 slot contains offset of 
dope vector from start of data region. 


Array 


OFFSET1 slot contains offset of address 
slot which contains a pointer to the arrays 
dope vector. (Not used in the case of 
CONTROLLED.) OFFSET2 slot is not present. 


A a oo ec 


INTERNAL 


OFFSETI slot contains offset of datum 
from start of data region.  OFFSET2 slot 
contains offset of dope vectcr (if there is 
one) from start of data region. 


Non-Structured Scalar Strings in AUTOMATIC 


Stable ` length: OFFSET1 slot not 
used.  OFFSET2 slot contains offset of 
dope vector from start of data region. 
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OFFSET1 slot contains offset or address 
Slot which points to string dope vector 
(not used in the case of CONTROLLED). 
OFFSET2 slot not present. 


Non-Structured Non-String Scalars in 


AUTOMATIC or STATIC INTERNAL 


offset of datum 
OFFSET2 slot 


contains 
region. 


OFFSET1 slot 
from start of data 
not present. 


Slot contains cffset of address 
(not used in the 
slot not 


OFFSETI 
slot which points to datum 
case of CONTROLLED). OFFSET2 
present. 


7. OTHER DICTIONARY ENTRIES 


Byte Number Description 

1 Code byte Xx'00' 

273 Length up to BCD iength-1 
byte 

4-5 Hash chain - STATIC cnain 

6-8 Offset 

9-10 Statement number (except 
when the lakel is mentioned 


in an ON CHECK list, in 
which case it gives the 
chain to the label BCD dic- 
tionary entry, code byte 
X'CE') 
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Internal Formats of Dictionary Entries 


11 Other 1 Code Byte (See 
"First Code Eyte - Other 1" 
in this Appendix 


12-14 Second Cffset Siot 

15-16 Spare for Final Assembly 
17 Level 

18 Count 

19 Count of Containing Block 
20 BCD Length-1 

21 etc. BCD 


The format is identical to that of a 
iabel constant, except for the cmission of 
the BCD. The code byte is X'C3'. 


——Ó—M—Ó—Ó— be —Á— — done — — he eke» —À—À anan mte ate avwe nw— e 


These entries are derived from the  PRO- 
CEDURE and ENTRY statements, and do not 
contain any information other than that the 


identifier is a formal parameter. The 
format is as follows: 
Byte Number Description 
T Code byte X'4yo0' 
2-3 Length 
4-5 Hash chain 
6-7 These bytes will point tc a 
full description of the 
identifier after Phase EK, 
or Phase FA, or Phase FE. 
These full descriptions are 
dictionary entries for the 
type of item they are des- 
éribing. They do not con- 
tain the PCD of the iden- 
tifier, but in the slot for 
the hash chain there is the 
dictionary reference of the 
corresponding formal  param- 
eter type 1 entry. 
8 Level 
9 Count 
10 BCD length-1 
11 BCD 
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For a description of the types of entry 
pointed to, see "Dictionary entry for  par- 
ameter descriptions." 


For attributes specified in OPEN state- 
ment the format is as follows: 


Byte Number Description 
1 Code byte X'98' 
2-3 Length 
4-5 STATIC chain 
6-8 OFFSET1 


DECLARE statement number 


11 onwards String of second level mark- 


ers (without preceding "CH? 
code bytes) one for each 
attribute other than FILE, 


TITLE and IDENT. 
This entry is created by the read-in 


phase and is referred to only as the 
argument of an ATTRIBUTES marker. 


FILE Constants 


Code X'08' is used for file constant 
entries, which have the following format: 


Byte Number Description 
T Code byte X'08' 
2-3 Length 
4-5 Hash chain, subsequently 
EXTERNAL or STATIC chain 


depending on whether FILE is 

EXTERNAL or INTERNAL 
6-8 OFFSET1 (STATIC or transfer 
vector offset) 


9-10 Declare statement number 

11-12 Dictionary reference of 
attributes entry (zero if 
none) 

13 Code byte (similar to the 
“other 2" ccde byte. Only 
internal/external bit used) 

14-15 Dictionary reference of 
environment string (zero if 
none) 
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16 Level 
17 Count 
18 BCD length-1 


19 onwards BCD 


FILE Parameters and Terporaries 


A e e ' wan “an —— 


Code X'89' is used for file parameters 
and for file temporaries. The format of 
the entry will be the sare as that for 


label variables. 


FILE Environment Entries 


Code X'C8' is used for the  environrent 
string. 
Byte Number Description 
1 Code byte X'C8' 
2=3 Length 
4 onwards Internally coded form of 
argument of ENVIRONMENT 
option 
Code X'C8' is also used for attributes 


collected from the DECLARE statement. 


Byte Number Description 
1 Code byte x'ceg' 
2-3 Length 


4 onwards String of second level mark- 


ers (without preceding code 


bytes X'C8'), one for each 
attribute other than FILE, 
ENVIRONMENT, EXTERNAL, Or 
INTERNAL 


Byte Number Description 
1 Code byte X'88' 
23 Length 
4-5 Hash chain 
6 DATA byte 


10 
11 


12 


13-14 


Data Precision* 


Scale Factor* 


*These are the apparent pre- 
cision and factor derived 
from the BCD of the constant 
(see Note 2) 


Type (see note 1) 
DATA byte (2) 

Data Precision (2)** 
Scale Factor (2)** 


**These bytes are inserted 
by the phase requesting con- 
version. If a picture is 
required, these bytes are 
used to contain a picture 
table reference (see Note 3) 


Dictionary reference - used 
when a phase requires a con- 
stant to be converted into a 
specific location in storage 


BCD 


1. The type byte has the following mean- 


00 - norma 


11 - the B 


10 or 01 - 


1 BCD constant. The first 
offset slot must be relo- 
cated by the storage allo- 
cation phase, to contain 
the offset of the converted 
constant from the start of 
STATIC storage, rather than 
from the start of the  con- 
stants pool 


CD is replaced by the inter- 
nal form of the constant. 
The first offset slot is 
treated in the same way as 
for the code 00 


the constant is required to 
be converted into a speci- 
fic location in storage. 
The second code implies the 
converted constant should 
be made negative before 
being stored 


Sixth bit: 1 indicates that the con- 
stant requires a DED. 


Seventh bit: 1 indicates that the 
constant requires a dope vector. 
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Eighth bit: 1 indicates that no con- 
version is required. 


2. After the constants processor the 
bytes 6 through 8 will contain tne 
offset of the constant from the start 
of the pool cf constants. If a dore 
vector is requested then the offset ot 
this from the start of the constants 
pool is eight less than that of the 
converted constant. 


3. Should a DED be required, this will ce 
constructed by Phase PL. The two 
bytes, precision(2) and scale 
factor(2), will contain a dictionary 
reference Of a DED dictionary entry. 
If the constant requires a dope vectcr 
then Phase OS will make a dictionary 
entry for it, and the dictionary ref- 
erence preceding the ECD will be the 
dictionary reference of this. 


Task Identifiers and EVENT Deta 


The format of the dictionary entries for 
task identifiers and EVENT data is, apart 
from the initial code byte, the same as 
that for a label variable. 


Dictionary Entries for Built-in Functions 


Byte Number Description 
1 Code byte X'04' 
2-3 Length 
4-5 Hash chain - later becomes 


the STATIC chain 


6-8 Offset - gives the position 
in STATIC storage of the 
load constant for Library 


routine 

9-10 Code bytes - the first code 
byte contains a value which 
identifies the built-in 


function and also provides 
information akout it. It is 
used mainly by phases IM and 
MD-MM inclusive. The second 
code byte contains further 
information about the built- 
in function (See “Second 
Code Byte.") 


11-12 DECLARE statement number 
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13 Level 

14 count 

15 BCD length-1 
16 BCD 


The second code byte contains the 
following information: 
Eit Number Description 
1 May be passed as an argument 
2 May have an array as an 
argument 
3 Must have an array as an 
argument 
4 Is a pseudo-variable 
5 Indicates to which of the 


two tables the offset refers 


6 May have an array (or 
structure) as an argument, 
but will return a scalar 
result 


Library routines, other than built-in or 
GENERIC functions, are known as Internal 
Library Functions. Their dictionary entry 
format is as follows: 


byte Number Description 

1 Code Byte X'C2' 

2-3 Length 

4-5 Hash chain 

6-8 Offset 

9 Library Code - identifies 
the particular Library rou- 
tine required 

10 Not used 

11-12 Code Pytes - the first code 


byte contains a vaiue used 
by phase MG to pick up com- 


plete information about the 
Library function. The sec- 
ond code byte contains 
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further information about 


the function 
13 Level 


14 Count 


BCD entries 


BCD entries are used when the LIKE, 
DEFINED, or POOL attributes are used. A 
short dictionary entry with the format 


given below is used. This is pointed at by 
the dictionary entry with the attribute. 


Byte Number Description 
1 Code Byte X'&40" 
2-3 Length 
4 BCD length-1 
5 BCD 


EE ane E d ————-- 


Dictionary entries for 
criptions are identical with the normal 
entry for data variable, lakel variable, 
structure, file, or entry points, except 
for the following details: 


parameter  des- 


Hash chain contains pointer to formal 
parameter type 1. After Phase FT this 
pointer is moved to the bytes  contain- 
ing level and count 


No ECD is present 


No block identification is present for 
ENTRY cr FILE 


The code byte for an entry point - 
referred to as entry type 6 - is x'86' 
ON Statements 
Entries for ON statements are made by 
Phase FO, and contain the following: 
Byte Number Description 
1 Code Byte X'CI' 
253 Length 
4-5 AUTOMATIC chain 


10 


11 


12 


13 onwards 


Offset 


Code byte as supplied by the 
Read-In Phase 


Block level 


Block count 
n 


references of 
condition 


n dictionary 
variables cr ON 
entries 


This entry is made by Phase FO: 


10 
11 
12 


13 onwards 


5 onwards 


Description 
Code Byte X'uD" 
Length 


Hash chain later used as 


AUTOMATIC chain 
Offset 


Code byte as supplied by the 
read in phase 


Block level 
Block count 
BCD length-1 


BCD 


Code Byte Xx'ce8' 


Length 
n where n is the number of 
dictionary references  fol- 
lowing 
Dictionary references (2n 
bytes) 
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The 


format 


oí an entry in the picture 


table in che dictionary. 


10 


11 


T2 


Code Byte X'C8' 


Length = L+13 


Contains address of next 
entry in picture chain 
Offset in STATIC storage 


Code Byte (after Phase FQ) 
(See Code Byte descripticn) 


P - the nurber of digit 
positions in field in numer- 
ic picture. 


Q - the number of digit 
positiors after V character 
in numeric picture. Code 
X'E£0' represents O0, X'7F' 
represents -1, and  X'81' 
represents +1. 

W - apparent length of  pic- 


length of picture 
following. (For a non- 
numeric picture the length 
is obtained in rytes 12-13.) 


ture. = 


14 onwards Picture. 


Byte 9 - Code Byte 


Bit Number 
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0 string 
1 numeric 


0 correct 
1 error 


0 not sterling 
1 sterling 


O short 
1 long 


Not used 


O decimal 
1 binary 


0 fixed 
1 floating 


Not used 
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The format for a dictionary entry for 
workspace requirement is: 


Byte Number Description 
1 Code Byte X'C8' or X'CA' 
2-3 Length = 8 
4-5 Total workspace required 
6-8 offset 


If the code 
temporary workspace 
(temporary type 1). 


byte is C8 this is the 
used by pseudo-code 


— — ——— ——— ALII IÉÍIÍILL ILI ILLIILIIIÉBIIII 


Dictionary entries for parameter lists 
have the following format: 
Byte Number Description 
1 Code Byte X'c5' 
2-3 Length 
4-5 STATIC chain 
6-8 STATIC offset 
9-10 Assembled length 
11 onwards Contains DCA's 
Dictionary Entries for Dope Vector 
Skeletons 
Byte Number Description 
1 Code Byte X'C6' 
2-3 Length 
4-5 STATIC chain 
6-8 Offset in STATIC 
9-10 Dictionary reference cr 


DECLARE number 


11 onwards Bit pattern of skeleton dope 
vector 


This entry is constructed by Phase PD 
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Symbol table entries are made by Phase 
PL. 
Byte Number Description 
1 Code Byte X'C7' 
293 Length 
4-5 STATIC chain 
6-8 Offset in STATIC of DED 
9-11 Actual DED if not pictured. 
If a picture is involved, 
the last two bytes are the 
dictionary reference of the 
picture table entry 
12-13 Offset in STATIC storage of 
symbol takle entry 
15-16 Dictionary reference of next 
item in the symkol table for 
this klock 
17-18 Dictionary reference of item 


requiring 
table 


entry in symbol 


An entry for AUTOMATIC chain delimiter 
is made py Phase PP. 


Byte Number Description 
1 Code Byte X'CC" 
2-3 Length 
4-5 AUTOMATIC chain 
6-7 Pointer to first second file 
entry 
8-9 Pointer to second second 


file entry 


An entry for a DED is created by Phase 


PL. 


1 Code Byte X'c7' 


2-3 Length 

4-5 STATIC chain 
6-8 STATIC offset 
9-11 Actual DED 


If the DED requires a picture, the last 
two bytes contain the dicticnary reference 
of the picture table entry. 


This entry has the same format as the 
first eleven bytes of a symbol table entry. 
No item will require both types of entry. 
The type required will be chained from the 
symbol slot in an item. 


These entries are generated when a DED 
is required for the conversion of a tem- 
porary result. 


Byte Number Description 
1 Code Byte X'c1' 
2-3 Length = 11 
4-5 STATIC chain 
6-8 offset 
9-11 Actuai DED 


Geen Eege 


Descriptor. 


The entry for a FED is made by Phase NV. 


The entry is identical with a DED2 entry 
but with a length of 12, instead of 11. 
The storage allocated will be word-aligned. 


Byte Number Description 
1 Code Byte X'c1' 
2-3 Length = 12 
4-5 STATIC chain 
6-8 STATIC offset 
9-12 Actual FED 
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Internal Formats of Dictionary Entries 


Label BCD Entries 


Label ECD entries are made ky Phase FC. 
Byte Number Description 
1 Code Byte X'CE' 
2-3 Length 
4-5 DECLARE number 
| 6-7 Offset of the RCD 
in STATIC 
| 8-9 Dictionary reference of iter 
| requiring BCD 
These entries are constructed when a 
Statement label or a PROCELURE or ENTRY 
[label is mentioned in an ON CHECK list. 
|These entries are also made for EVENT and 
|TASK variakles. Phase PD will aliocate 


storage in STATIC for the BCD cf the lakei, 
and place the offset of this in the akove 
entry. 


indicate 
for a 
bytes 


This entry is constructed to 
that a dope vector is required 
temporary result. At this stage the 
in the entry contain the following: 


Byte Number Description 

1 Code Byte X'CO' 

2-3 Length 

4-5 AUTOMATIC chain 

6-8 Offset in the temporary type 
1 stack. After Phase «J 
this will contain the offset 
from the start of the DSA 

9-10 Dictionary reference of dope 
vector skeleton entry 

11-12 Length cf string 


This entry is constructed when a  varia- 


|ble requires a record dope vector. 
Description 


1 Code Byte X'c9' 
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2-3 Length 

4-5 STATIC or AUTOMATIC chain 

6-8 offset 

9-10 Dictionary reference ot 
variable 

11-18 Eight bytes of RDV text 

19-20 DECLARE numker 


This entry is constructed for a struc- 


ture which requires a dope vector descrip- 
tor. 
Eyte Number Description 
1 Code Byte X'cc' 
2-3 Length 
4-5 STATIC chain 
6-8 Offset 
9-10 Dictionary reference of 
structure 
11-12 Chain to RDV entry or 
DECLARE number 
Tues DVD text set up by Phase JK 


Format of 


MILL a a a ee ILLILÉIILILIII 


1 Code byte X'c8" 

2-3 Length of entry 

4-5 Statement number of the 
DECLARE or other statement 
giving rise to the seconå 
file statement 

6-7 Dictionary reference of the 
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entry type 1 of the block 
from which the second file 
Statement was extracted 


reference of a 
slot in the dic- 


Dictionary 
three-byte 
tionary. 


10 Type of second file state- 
ment, i.e. the function it 
performs. This is the sec- 
ond byte of the dictionary 
reference used to designate 
the function in the actual 
second file statement 


| This entry is made by phase PA (whenever 
Ja block has its DSA in STATIC). The "size 
jot DSA" siot (right-hand two bytes) in the 
|Entry Type 1 is used to contain the dic- 
jtionary reference in this entry. 


| 1 Code byte X'CB' 

| 2-3 Length - 20 

| 4-5 Dictionary reference of the 
| next STATIC DSA entry, or 
| zero if this is the last 
| entry. 

| 6-7 Offset address slot in  STA- 
| TIC for the DSA (set by 
| phase PD). 

| 8-10 Size of DSA (set by PT and 
| amended by RF). 

| 11412 Dictionary reference of the 
| Entry Type 1 of the block. 

| 13 Code byte to ke put into 
| first byte of DSA. 

| 14-16, Offset of start of DSA in 
| STATIC (set by phase TO). 

| 17-18 Head of block's automatic 
| chain. 

| 19520 Not used 


8. DIMENSION TABLE 


Each entry containing dimension informa- 
tion will result in a table reing set ur. 
This table is shown in Figure 10. 


(oe. eee cp En Mee ad nu I TAI MU MINES e p mE D umet 1 
Code Byte CH Two-byte length Flag Byte 
Y G Dy 
[rece SE cR Tents ee et era re eae Net a Ls ie a a at E 1 
| Zero byte [No. of dimensions (n)| Two-byte chain address | 
[----------------- E tet AA bee e e A ee MERE | 
| VIRTUAL ORIGIN WORD | 
}-----------------7--------------------- t--------------------------------- 1 
| One-byte marker | Not used | Lower bound (halfwcrd) | 
—— P —— }--------------------------------- { 
| One-byte marker | Not used | Upper bcund (halfworad) | 
}----------------- ł---------------------ł--------------------------------- 1 
p----------------- }-~------------------- }--------------------------------- { 
| | | nth upper Found | 
p----------------- t---------------------L--------------------------------- 1 


n multipiiers | 


Note: The one-byte marker is: 


00 if 
FF if bound is an expression; 
text. 
7F if the bound is inherited and has an MTF 


3F if the bound is inherited and is covered 


if the bound is specified by an *. 


—— —— — — a anm — — — — ann —À — a nw ane anm m Wan ee ee a cm A — — Gm Wen — pm mm e mp m m e ee 


eFigure 11. Dimension Table 


DICTIONARY ENTRIES FOR INITIAL VALUES 


The declaration sf a variable with an 


INITIAL attribute produces these entries: 


An INITIAL dictionary entry 


y 


ana 


One or 


stants 


more dictionary entries for con- 


and perhaps 


A second File Statement for any iteration 


expression contained in the INITIAL 
Specification. 

The INITIAL dictionary entry contains 
pointers to the constant entries and any 
Second File Statements, and is of the 
following format. 

Byte Number Description 


1 Code Byte X "CH? 
29 Length cf entry 
4 Prefix options byte 
5 INITIAL code byte X '79' 
6 Left parenthesis 
7 onwards INITIAL value list (see 
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bound is fixed point constant; bound is a two-byte binary constant, 


by a 


right-adjusted. 


bound is a three-oyte pointer to a second file statement in 


function. 


previous MTF function. 


below) 


| Final Right parenthesis 


| The INITIAL value list contains referen- 
[ces to Second File Statements and dictiona- 
iry entries which are created to correspond 
|to the value in tne input text. 


| The list contains the following code 
[bytes to identify each associated dicticna- 
|ry reference: 


| Constant iteration factor. This is 
| followed by X'00' and the dictionary 
| reference of the constant iteration 
| factor. 

| INITIAL value item. This is fol- 
| lowed py X'00' and the dicticnary 
| reference of the constant. (The BCD 
| of the constant is expanded by any 
| imposed string replication factor). 
This is followed by 
X'00' and the dictionary reference 
of the next entry on the chain. 


| marker. 

| 

| 

| (This will occur when the scratch 
| 

| 

| 


EOB 


core storage allocated for building 
the entry is not sufficient, and a 
chain of entries is constructed). 
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Variable iteration factor. This is 
followed by the text reference of 
the Second File Statement containing 
the expression. 


describes the ¡internal 
various points during 
of a source program. The 
following 


This appendix 
formats of text at 
the compilation 
appendix is organized in the 
manner: 


1. Text code bytes after read in 


2. Text formats after read in 


3% Text 
slator 


code bytes on entry to the tran- 


4. Triple formats 
5. Text code bytes in pseudo-code 


6. Text formats in pseudo-code 
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—— a ma evèm tintin anime re en van e ee a] a eee CES E ee (an Sèt DEER EE EE E E sam iat tue dan. 


7. Text formats in absolute code 


8. Second file statements, and the fcr- 
mats of compiler functicns and pseudc- 
variables 

result 


9. Pseudo-code phase temporary 


descriptors (TMPDs) 


10. Internal 
Sequences 


and external Lirrary calling 


11. Descriptions of terms and abbrevia- 
tions used in text durina a comoila- 
tion 


Note: The internal formats of text during 


compile-time processing are described 
in Appendix J. 
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TEXT CODE BYTE AFTER THE READ-IN PHASE 


First Level Table (00 to TE) 


1. 


S 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


| 
J 


} 
cy". 
x EE DE T EC EES 

/ 
REFER 

* 

di 
PREFIX - 
PREFIX * 

ko 


4! 


<= 12 
>= 
4X 
17 
2 
< 


ECUALS 
---> 


DO 


| 
rc is EL E cen Peay MEC EET 
| 
| 


—— ———— M panno 


A P NM n D NN UHR HEN 
| 
| 
| 
| 
(q QQ ee e 
posce uel cir ae re 
| 
| 


frenn pr — — A — M ———— 


E m M E lE o 


————— P — jo fen] 


AA PO A AA A III ek A A A e 


i 
MULTIPLE 
CONSTANT 


ASSIGN 
LITERAL 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
q E E 
| 
| 
| 
| 


BLANK 
( 
ļ----------4---}---}-----------}--------ł}----------ł--------}---------- 
) 
EE E EE EE 
ASSIGN 
LI 
% 
| 
: 


$ 

S 

T 

U 

V 

W 

X 

Y 

Z 
PSEUDO- 
VARIABLE 
FUNCTION 
SUBSCRIPT 


| # 
a 
| 
| K 
m 
| M 
| N 
| o 
| P 
| 
| Q 
[a 
| 
| 
| 
| 
| 
| 
| 
| 


a 
A 
B 
C 
D 
E 
F 
G 
J 
I 


| 
| 
| 
| 
| 
| 
| 
| . 
SO era OUT MESE MUERE Se a ET E 
| 
| : 
EE EE roce. a gee ILC Md NE a SE 
| 
| 
| 
| 
| 
| 
| 
| 


0 
1 
2 
3 
T 
5 
6 
7 
8 
9 


————— M: 


(Se ee er gt Map ee) ee a ae Mc, WAP EIUS TI Deer KSE 


0 
1 
| 2 
3 
| 4 
5 
6 
7 
| 8 
9 
| A 
B 
me 
D 
E 
F 


[«-Didits-»|«-----Letters-----»|4------2-------Operators-----s2-----cs | 
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First Level Table (80 to FF) 


——— ———— EE EE EE EE — ——————— 


0 


6 


7 


B 


C 





8 9 A B 
pt T Wd reu Woo pO 4 ae l VC 
| | | | HYBRID 
| TO |LINE |A | QUAL 
ļ-------- ł------- ee ł------- 
| | | | 
| ALLOCATE | {CALL | ENTRY 

A A ÓN 
|EY | |B | 

E EAR +-------+}----~------+4------- 
| FREE | | RETURN | PROC 
e Ó——À— I-------4---------- enl a so 
{WHILE | |P |CHECK 

t e si + Bak m n as i i po UTEM RUN Gn eas a 
| | DISPLAY|GOOB* | BEGIN 
poo donnen Gap ama aera ł------- 
| SNAP | COL |R | 
is qoc ł---------- ł------- 
| |SIGNAL |GO TO | ITDO 
ļ-------- ł------- ł---------- ł------- 
| | | | NO 
[SYSTEM (E | | CHECK 

D ere um e a I-.------4----------(------- 
| WAIT |REVERT | | DO 
ļ-------- ł------- ł—--------- ł------- 
| | | | DATA 

| THEN |F | |LIST DO 
omm T-------][41----------4------- 
| DELAY | | INIT LABEL|IF 

Pn eds Be +-----~--+-----+-----4------- 
{CONTROL | | | 

| VARIABLE | | |SN2 
CHOIR --ł-------ł----------ł------- 
[EXIT | NULL | DECLARE | ELSE 
ł-------- ł------- PRA ł------- 
| Ke px [NO SNAP 
p Pa ia oo n on Pon 
[STOP [ASSIGN | | FORMAT 
Lo ee éeeg € ee eee eee A E E LI 


+ Go Out Of Block 





C D 

> US eg es WAIT ATO Ee 
| | 

| | SN 
po }---------- 
| |ASSIGN BY 
| | NAME 
d--------- 4---------- 
| {SL 
4--------- 4---------- 
| |SL" 
£--------- 4---------- 
| |CN 
£--------- j---------- 
| | GET 
i--------- 4---------- 
| | CL 
4--------- 4---------- 
[WRITE [PUT 

== mm c UNS dmi us md Ij2--------- 
[2nd LEVEL| 

|MARKER á | 
ł--------- ł---------- 
| READ | UNLOCK 
fanaa nn £---------- 
| | 

| | 

Hom o a + pm on mak ER 
[LOCATE [REWRITE 
4--------- 4---------- 
| | 

| | 
ł--------- ł---------- 
[DELETE | OPEN 
4--------- 4---------- 
| | 
i--------- ł---------- 
| | CLOSE 
Lie ee eS Alcllllcclamn 


— — ma e — — — — — 


—— — aaa 


TIL III 


F 
AAA aay ted ey 1 
| | 
|FL DEC IMAG | 
4------------- 1 
| l 
|FL DEC REAL | 
I-—----------- 1 
|FL BIN IMAG | 
Ie eager nee nae 1 
[FL BIN REAL | 
Anon E 1 
|FIX DEC IMAG | 
q e 1 
|FIX DEC REAL | 
queue cc 1 
|FIX BIN IMAG | 
qose 1 
|FIX BIN REAL | 
sa a ar ie 1 
| | 
| INTEGER | 
ł------------- 1 
|STG DEC REAL | 
ł------------- 4 
| | 
| | 
ió 1 
| ON | 
quce ecd 1 
| ARRAY | 


[CHAR CONSTANT | 
Seite A E 
| SUB | 
|BIT CONSTANT | 
EA E d 
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w o 


e 


—Ó— M EE eee —À EE e € eman a. 


| ATTRIBUTES 


| NOLOCK 
t As MS 


| 
| IGNORE 


FILE 


pt bel 


| STRING 


KEYFROM 


+ Mn Se due ur 
| FORMAT 


2 
MÈ A ye Co PES T 
| | 
ł-------- + 
| | 
ł-------- + 
| | 
i-------- + 
JEVENT | 
}-------- + 
| PRIORITY | 
j-------- + 
[REPLY | 
ł-------- + 
| | 
ł-------- 4 
| | 
j-------- + 
| | 
j-------- + 
| | 
f-------- + 
| | 
ł-------- + 
| | 
ł-------- + 
| IN | 
ł-------- + 
| | 
ł-------- + 
| | 
j-------- + 
| | 
| | 
disse => L 


iThe EVENT built-in function 
and pseudo-variable are 
known externally by the 
equivalent name COMPLETION. 


374 


— ef ene es aba SS ES AE am ats A rs am repa cus c, alas asm arm ars SS 


4 5 6 7 
SE e Noe lr ee ETS Me HECK e Se 
| DECIMAL | OPTIONS |EXTERNAL  |AREA | 
Hi eee SS 1----------- ——— E ss ——À HÀ 
| BINARY | IRREDUCIELE| INTERNAL  |POINTER | 
-------------- 4-----------d----------i--------- 
| FLOAT |REDUCIBLE  |AUTOMATIC |EVENT | 
-------------- }-----------}----------}---------| 
| FIXED |RECUKSIVE  |STATIC | TASK | 
kl vU Kate, a e n +----------- AA See ee E 
| REAL ABNORMAL  |CONTROLLED| CELL | 
eS us ma UE e mae aes T-2-------------------- meis cmq das M aS in 
| COMPLEX | NORMAL |SECONDARY |BASED | 
-------------- ł-----------ł----------ł---------4 
[PRECISION 1 [USES | [OFFSET | 
-T------------- 4-----------d----------4--------- 
|PRECISION 2 |SETS | | | 
-------------- ł-----------ł----------ł---------4 
| VARYING | ENTRY |INITVAR 1 | | 
-------------- Y po 
|PICTURE(NUM)  |GENERIC |INITIAL |INITVAR 2| 
-------------- q-----------4d----------4--------—- 
|BIT ATTRIBUTE |BUILTIN | LIKE | | 
A ET 4-----------j----------d---------d 
[CHAR ATTRIBUTE | [DEFINED | | 
-------------- T-----------d----------4--------- 
| DIMS (INTEGERS) | [ALIGNED | | 
-———-—--------- 4-----------]1----------4--------- 
|LABEL | | PACKED | | 
ł-------------- ł----------- ł---------- 1--------- 1 
| | | PACKED | | 
ł-------------- ł----------- ł---------- t--------- 1 
| DIMS | | |PICTURE | 
| (NON-INTEGER) |RETURNS | POS | (CHAR) | 
LE e uL Ls a en Lo LS Ri J 


Second Le 


vel Table (80 to FF) 


8 9 A B 
pour SR pce S po VARAS 
0 |BUFFERED | | | MAIN 
----------- $----------}----+----}--------- 
1 [UNBUFFERED | | | 
poo ł---------- ho ł--------- 
| | | | 
2 |EXCLUSIVE | | | REENTRANT 
----------- $----------}---------}--------- 
3 |KEYED | | | 
~-~-------- $----------4---------}--------- 
4 {STREAM | | | SECONDARY 
pe ea EE EE EE 
5 |RECORD | | | 
To EES RE RES 
6 |BACKWARDS | | | TASK 
------ ~----}---------~}---------}--------- 
7 |SEQUENTIAL | | | 
}----------- ł---------- ł--------- ł--------- 
| | | | 
8 |DIRECT | | | ON-BLOCK 
----------- $----------4}---------}--------- 
9 |PRINT | | | 
----------- $----------}---------}--------- 
A | ENVIRONMENT | | | 
~--------~- $----------}---------}--------- 
B |INPUT | | | 
-~---------- to~--------}---------}--------- 
C |OUTPUT | | | 
----------- Äech 
D |UPDATE | | | 
ļ----------- 4---------- d--------- ł--------- 
E | | | 
E | | | | 
po 4---------- +--------- }--------- 
F | | | | 
— IS css AAA 
2. TEXT FORMATS AFTER THE READ-IN PHASE 
In the statement formats in this sec- 
tion, the code bytes SN, SL, SL', POS, and 
OB have the following meanings: 
SN Statement number 
SL Statement label 
SL' initial label 
POS following SN is a 2-byte statement 
number 
following SL is a 2-byte dictiona- 
ry reference of statement label or 
entry type 1 
OB prefix options byte, specifying ON 


conditions enabled for the state- 
ment as follows: 


np pp pp A 


po pp pp pp 


fr — 


C D E F 
ncc Ne. PE Don a ee a kok VE ee ee 
| OVERFLOW | CONVERSION|CCNDITION|[ 
------ }----------}----------4---------4 
| | | | 
------ ł----------ł----------ł}---------] 
| | STRING- | | 
| UNDERFLOW |RANGE | NAME | 
------ ł----------ł----------}---------] 
| | | | 
------ 4~-------~--}----------}---------{ 
| ZERODIVIDE|AREA {TRANSMIT | 
------ ł----------ł----------ł}---------]4 
| | | | 
------ }----------}----------}---------{ 
| FIXED | | | 
| OVERFLOW | ENDFILE | CHECK | 
------ Kachen 
| | | | 
------ ł----------ł----------}---------4 
| SUBSCRIPT | | | 
| RANGE JON RECORD | | 
------ }----------}----------4---------4 
| | | | 
------ ł----------ł----------}---------] 
| ERROR [END PAGE | | 
------ ł----------ł----------ł4---------4 
| | | | 
------ }--~-------}----------}--------- 
| FINISH | KEY [NOCHECK | 
------ }----------}----------}---------{ 
| | | | 
------ }~-----~----}----------}---------4 
| [UNDEFINED | l 
| SIZE | FILE | | 
------ EE kos satasasè komans 
| | | | 
Mid. a is oie AAA ee med 
phase eS SSS wee mu n iue S aa ae 1 
| BIT | ON CONDITION | 
ļ--------- ł------------------------------- 1 
| 0 | OVERFLOW | 
| 1 | UNDERFLOW | 
| 2 | ZERODIVIDE | 
| 3 | FIXEDOVERFLOW | 
| 4 | SUBSCRIPTRANGE | 
| 5 | SIZE | 
| 6 | CONVERSION | 
| 7 | STRINGRANGE | 
fastidia AE A aN Fn, AP EP EEE Re J 
The akpreviation SQUID means an iden- 
tifier, possibly subscripted and/or quali- 
fied. 


PROCEDURE Statement 


The format of a PROCEDURE statement is 
as follows: 
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Byte 


.Number 


11-13 
14-16 
17 


18... 


Code byte SN or SL 

POS 

OB 

PROCEDURE 

Block level 

Block count 

PROCEDURE-BEGIN chain 
DECLARE chain 

ENTRY chain 

Left parenthesis - optional 


Format parameter list - 
optional 


Right parenthesis - optional 
Attribute marker - optional 
Attribute code - optional 
Attribute list - optional 


End of statement semicolon 


ENTRY Statement 


T 
foll 


Byte 


376 


he 
Ows: 


format 


_Number 


10 
11 


12 


of an ENTRY statement is as 


Code byte SN or SL 

POS 

OB 

ENTRY 

ENTRY chain 

Block level 

Block count 

Left parenthesis - optional 


Formal parameter list - 
optional 


Right parenthesis - optional 


Attribute marker - optional 


BEGIN Statement 


The format of a BEGIN 


follows: 


END Statement 


The 
follows: 


format 


Attribute code - optional 


Attribute List - optional 


Statement terminating 
semicolon 


Statement is 


————Ó——dL————— 


Code byte SN or SL 
POS 

OB 

BEGIN 

BLOCK LEVEL 

Block count 
PROCEDURE-BEGIN chain 
DECLARE chain 


Statement terminating 
semicolon 


of an END statement is as 


Description 


Code byte SN or SL 


POS 
OB 
END1, END2, or END3 - ENDI 
ends a PROCEDURE or BEGIN 
block; END2 ends an itera- 


tive DO block; END3 ends a 
non-iterative DO klock 


Block level for the contain- 
ing block 


Block count fcr the contain- 
ing block 

Statement terminating  semi- 
colon 


IF Statement 


The format of an IF statement is as 


follows: 
Byte Number Lescription 
1 Code byte SN or SL 
2-3 POS 
4 OB 
5 IF 
CG... Expression 
THEN 


Statement or Group 
ELSE - optional 


Statement or Group 
optional 


Note: The semicolon preceding the ELSE has 
been deleted 


DO Statement 


The format of a DO statement is as 
follows: 
Byte Number Description 
1 Code pyte SN or SL 
2-3 POS 
4 OB 
5 DO or ITDO 
6 CV 
7 BKC 
GEN Squid 
DO equals 
Expression 
TO 
Expression 
BY 
Expression 
WHILE 


Expression 
Statement terminating 
semicolon 


ON Statement 


The ON statement takes one of the fol- 


lowing formats: 


Byte Number Description 
1 Code byte SN or SL 
2=3 POS 
4 OB 
5 ON 
6 ON Condition 
7 SNAP or NOSNAP 
8 Statement or block 
2 
Byte Number Description 
1 Code byte SN or SL 
2-3 POS 
4 OB 
5 ON 
6 ON Condition 
7 System 
8 SNAP or NOSNAP 


ASSIGN Statement 


The format cf the ASSIGN statement is as 
Follows: 


Byte Number Description 
1 Code byte SN or SL 
2-3 POS 
4 OB 
5 ASSIGN cr ASSIGN BY NAME 
6... Squid 


Comma - optional, 
may be repeated 
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Squid - optional, 
may be repeated 


Variable number of bytes - 
Optional, may be repeated 


ASSIGN 
Expression 


Statement terminating 
semicolon 


WAIT Statement 


The WAIT statement has the following 

format: 
Byte Number Description 

1 Code Byte SN or SL 

2-3 POS 

4 OB 

5 WAIT 

6 Left parenthesis 

Vee Identifier 


Left parenthesis - optional 
Expression - optional 

Right parenthesis - optional 
Comma 


Further optional parentheses 
and expressions 


Right parentnesis 

Left parenthesis - optional 
Expression - cptional 

Right parenthesis - optional 


Statement terminating 
semicolon 


The CALL statement has the following 
format: 
Byte Number Description 
1 Code byte SN or SL 


378 


2-3 POS 


4 OB 

5 CALL 

6-8 CALL chain 

9 Identifier 

10 Left parenthesis 
11 Expression 

Elis Right parenthesis 


Left parenthesis 
Argument List 
Right parenthesis 


Statement terminating 


semicolon 


GO TO Statement 


The format of the GO TO statement is as 
follows: 


Byte Number Description 
1 Code kyte SN or SL 
2-3 POS 
4 OB 
5 GO TO 
Orois Squid 


Statement terminating 
semicolon 


The SIGNAL and REVERT statements have 

the following format: 
Byte Number Description 

1 Code byte SN or SL 

2-3 POS 

4 OB 

5 SIGNAL or REVERI 

6 ON Condition 


Statement terminating 
semicolon 


DISPLAY Statement 


The 
as follows: 


d ws 


format of the DISPLAY statement is 


Description 


Pm 


Code byte SN or SL 

POS 

OB 

DISPLAY 

Left parenthesis 

Expression 

Right parenthesis 

Left parenthesis - optional 
Squid - optional 

Right parentnesis - optional 


Statement terminating 
semicolon 


The format of the DELAY statement is as 


follows: 


Jui 


Code byte SN or SL 
POS 

OB 

DELAY 

Left parenthesis 
Expression 

Right parenthesis 


Statement terminating 
semicolon 


The format of the RETURN statement is as 


follows: 


p 


Code byte SN or SL 

POS 

OB 

RETURN 

Left parenthesis - optional 
Expression - optional 

Right parenthesis - optional 


Statement terminating 
semicolon 


——— eben «tren —Ó—À —À —À—ÁÀ ewe —À —ÁÀ —À—À——À — — — — 


The format of STOP, 


EXIT and Null state- 


ments is as follows: 


Byte Number 


The format 


Description 

Code byte SN cr SL 
POS 

OB 

Statement identifier 


Statement terminating 
semicolon 


of INITIAL label DECLARE 


statements is as follows: 


Byte Number 


9... 


Appendix D: 
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Description 

Code byte SN or SL 
POS 

OB 

INITIAL Label DECLARE 
DECLARE chain 


INITIAL label 


379 


The format 


Statement terminating 
semicolon 


of DECLARE and ALLOCATE 


statements is as follows: 


Byte Number 


— —Ó— ee ee M —— 


The format o 


follows: 


380 


Gans 


Code byte SN or SL 
POS 
OB 
DECLARE or ALLOCATE 


DECLARE chain or ALLOCATE 
chain 


Declaration list 


Statement terminating 
semicolon 


f the FORMAT statement is as 


Description 

Code byte SN or SL 
POS 

OB 

FORMAT 

Format list 


Statement terminating 
semicolon 


Format items are 
codes 


replaced by one-byte 


OPEN and CLOSE Statements 


The format of OPEN and CLOSE statements 

follows. 
Byte Number Description 

1 Code byte SN or SL 

2-3 POS 

4 OB 

5 OPEN or CLOSE 

6... File group list 


Statement terminating 
semicolon 


The format of READ, WRITE, GET, PUT, 


REWRITE, UNLOCK, and DELETE statements is 
as follows: 
Byte Number Description 

1 Code byte SN or SL 

2-3 POS 

4 OB 

5 Statement identifier 

Ba vs Option list 


Statement terminating 
semicolon 


A 


TEXT CODE BYTES ON ENTRY TO THE 


D_i i — —— ————À ——— ————— 


a 


| PAGESIZE 
t Eiere RT E 


|IDENT 





ees) 


— = M— — — — — — 


— — mmm mmm au» “an a a ama — 


PRIORITY 


— — een vm —À— — a awa mmm — 


BUY 
CHAMELEON 


tH HH — 


am m anm — — —À — — — — 


LIST MARK 


— — — a — — —— — mp 


SUBSCRIPT 


Kb — E — — E e pp 


3 4 5 6 
MET as TET qo ENTUM qoe qe ie eg S 
[COMPILER | | | 
{FUNCTION | | FILF' | 
pa pá ł-------- ł---------- 
| [COMMA | t |DO EQUALS 
SS AS ł-------- f---------- 
[COMPILER | | | 
[FUNCTION |FCOMMA |LIST' | 
| CALL | | | 
quee e EE ł-------- pense 
| l ( |EDIT* | 
t= qoem pss pe 
[COMPILER  |COMPILER| | 
| PSEUDOVAR | FUNCTION|DATA' | 
| [COMMA á | | 
ł---------- qme la ie qescdee eme 
| D |STRING' | < 
È NB ume SS ł---------- 
| | COMPILER] | 
| ERROR |ASSIGN | | 
tern peseta eS ł---------- 
| | | MULTIPLE | 
|BUY ASSIGN|ASSIGN |ASSIGN | 2» 4< 
ł---------- ł--------ł-------- ł---------- 
| ARCO | DROP | TMPD | LEFT 
pe pt queer fences 
| | il | LD MER 
ł---------- ł-------- (ssp Ee 
| | BUYB | | 
|PSEUDOVAR |CALSEQ {TT | 
O SS === pem fece 
| END | | | 
[LIST MARK | | | JMP |] = 

regeert deeg Deg Meet 
|FUNCTION |CNVA | RPL' | 
derer Ee 
|ARGUMENT | | | 

| MARK l e | | > 
[esce moon donan Ton nee 
|SUBSCRIPT | [LITERAL |DEFINED 

| | CNVB | CONSTANT | SUBSCRIPT' 
qa ł--------ł--------ł---------- 
| | | FORMAT | 

| lg | LIST' | < 
Li mm erum Acc Li ia A 
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7 
qué cum aee De 1 
| COMPILER | 
| FUNCTION' | 
4-------------- 1 
| } | 
+-------------- 1 
| COMPILER | 
| FUNCTION CALL" | 
i | 
ł-------------- 1 
| an | 
4-------------- 1 
| COMPILER | 
| PSEUDOVAR' | 
| | 
}-------------- 1 
| * | 
d-------------- 1 
| | 
| NDX [ 
$-------------- 1 
| | 
| / | 
ł-------------- 1 
{OFS | 
ł-------------- 1 
| * | 
ł-------------- 1 
| | 
| PSEUDOVAR' | 
}-------------- 1 
| | 
| PREFIX - | 
4-------------- 1 
| FUNCTION' [ 
t-------------- 1 
| | 
| PREFIX + | 
ł-------------- 1 
| | 
| SUBSCRIPT' | 
ł-------------- 1 
| | 
| kak | 
RE d 
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| 
| 
| 
TREE 
| 
| 
| 
| 


: 
| 


| BEGIN' 


—————— M —— ————— 
| ITDO' 


| PROC' 
}--------}-------}------}------}--------}---------}----------}-------------4 


| EIO 
——— — — — ee —— — A 


ļ--------4-------}------4------ł}--------ł---------ł----------}-------------] 
| DO' 


—— LP — — ——— Ea: 


| 
pren ooo op ee — — e aa 

| 

| 

| 


H--------ł-------}------ł------}--------ł}---------ł----------ł-------------4 


| END ITDO 


| CALL" 
H--------}-------}------}------}--------ł---------ł}----------}----------- 


| 

| 
pp" 

| END 


|END DO 


| SN 

| 

| SL 

| 

[CN 
|GET 
|CL 

| PUT 
EN 

| UNLOCK 


| TO" 
| 
| BY" 
crx dE ccce RE EE OMS 
| WHILE' 
| SNAP* 
| WRITE 
| SYSTEN' 
| READ 


|BEGIN |SORT 


| 

| 

| 

| 

| ITDO 
|DO 


| RETURN | PROC 


|A 
|CALL 
|B 

|P 

|R 

| 

| 


| LINE 

| PAGE 

| SKIP 

| DISPLAY | GOOB 
| COL 

|SIGNAL |GOTO 
|E 

| REVERT 


E ieee Dc AE oi lee EE Go RA RD aes 


| TO 

| ALLOCATE | 
| BY 

[FREE 

| WHILE 

| 

| SNAP 

| 

| SYSTEM 

| WAIT 


0 
1 
2 
3 
L 
5 
6 
7 
8 
9 


[LIF" OR ON 


—À—— —— —————— | 


Ier 
|REWRITE [END PROG 


|E" 


|LOCATED 


A 


| IF 


|G 


(F 


A |THEN 
| 


B |DELAY 


| ARRAY 
[CROSS SECTION| 
| 


|END BLOCK 
——————— —— 


— P — —— — Ó— — n rare 
| OPEN 


jev" 
| DELETE 


| | 
|SELL |SN2 
|BUY |ELSE 


| NULL 


[CV 


D |EXIT 


C 


| FORMAT 


Lo a o D DE E D DE cl E | 


| END PROG 2|NOSNAP' 


en A ——P—— —Ó— — — P — HÀ 


pe” 
| CLOSE 


| NOSNAP | 
| FORMAT | 


|X 


|ASSIGN |BUYS 


Ic 


| 
| STOP 


E 
E 
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The triples produced as output from the 
translator phase each consist of five 
bytes, an operator followed by two 2-byte 
fields. Each of the two-byte fields may ke 
occupied by an operand, which may be a 
dictionary reference, a code byte or code 
bytes, or a numeric parameter. TwO zero 
bytes in place of a dictionary reference 
operand imply that the operand is the 
result of previous operations, and that its 
type and location are described in a TMPD 
in the text. 


The number of operands and the fields 
which they occupy depend upon the type of 
triple. The following table contains this 
information for all the triples used in the 
compiler. 


QUEUE ANGE OTRA n | 
|TRIPLE TYPE |HEX |FIELD 1 |FIELD 2 | 

| CODE | | | 
AA EE +----ł---------ł---------1 
| KEYED | 03 | - | - | 
nes Pres fese eee 
|TITLE | o4 | - |OPERAND | 
cec ese See E ł---- ł--------- ł--------- 1 
| ATTRIBUTES | 05 | - |OPERAND | 
SEAN UE Dic C E ł---- qusc: ARA 1 
| PAGESIZE | 06 | - |OPERAND | 
pcc ecce ł+----ł4---------ł4---------4 
| IDENT [ 07 | - |OPERAND | 
mri ME E ETE Leger Geet e saaa 
|LINESIZE | 08 | - |OPERAND | 
cmn nmm ł----+4---------ł---------4 
| INTO | OA | - |OPERAND | 
EE łt----ł---------ł}---------4ł 
| FROM | OB | - |OPERAND | 
—--------------- Pr in e e] 
| KEY | OD | - |OPERAND | 
eec ee ARS acre +----}---------}+---------{ 
| IGNORE | OF | - |OPERAND | 
SNR CET łt----ł---------ł---------1 
| FILE | 10 | - [OPERAND | 
EA RN ł----ł---------ł4---------1 
| LIST | 12 | - | - | 
See ł----ł4---------ł---------4 
|EDIT | 13 | - | - | 
Wiese ce eege o a ER DI 
| DATA | 14 | - | - | 
EE sl aca ai ial aa 
| STRING | 15 | - |OPERAND | 
ren se T----1---------t---------d 
| SKIP | 16 | - |OPERAND | 
RUE METRE ELLE t----ł---------ł4---------1 
| LINE | 17 | - |OPERAND | 
athe Ra eae ł----ł4---------ł---------4 
| PAGE | 18 | - | - | 
a ere c E ł----ł---------ł---------4 
| COPY | 19 | - | - | 
EE ł----ł---------ł---------1 
| KEYTO | 1A | - |OPERAND | 
¡ARA EA E oe PA ARA J 


——— M — — ee an mm vm — — a — e ae 
—— M — — a a = —— — ae un a mi ze 
— —= — a an «m w — ena a — — — 


ee mn Gen — —— SEE — vn an e a an ans am vs 


|DEFINED 
| SUBSCRIPI 


| COMPILER 
| FUNCTION 


| COMPILER 
| FUNCTION CALL 


| COMPILER 
| PSEUDO-VARIABLE 


| COMPILER 
| FUNCTION COMMA 


|COMPILER ASSIGN 
| loss isk 


*This triple 
format lists. 


Appendix D: 


l-— +—=+—— + — Hobo — + 


may 


--------- 4---------4 


— a9 lam mnm mta m e J 


————T 
1B | = 
------------- 
1c | - 
------------- 
1D | - 
DE 
1E | - 
ET EE 
1F | - 
DEET EE 
20 | - 
——— EE 
21 | - 
------------- 
22 | - 
-L---j--------- 
23 | - 
----j--------- 
24 | - 
-T------------ 
25 | - 
--21--2-j--------- 
27 1 B 
----i 
28 |OPERANP 1 
----+ 
29 |OPERAND 
ES MC 
2E |OPERAND 
SeN ren 
2F | - 
=a EE 
30 |OPERAND 
a KP EN eS 
32 |OPERAND 
HE at m UE D UA 
34 |OPERAND 
E EE 
37 |OPERAND 1 
----j--------- 
38 | - 
EE E 
3A |OPERAND 
—— EE 
3C |OPERAND 
DEE EE 
3E |OPERAND 
E En en 
3F | - 
EE EE 
H1 | - 
------------- 
42 | - 
-L---j--------- 
| 
44 | - 
----}--. 
45 |OPERAND 1 
+ 
46 |OPERAND 1 
cm dE 
have two o 


T 
| S | 
4--------- 4 
| S | 
d--------- 1 
[OPERAND | 
ł--------- 1 
|OPERAND | 
1--------- 1 
| E | 
}--------- { 
JOPERAND | 
ł--------- 1 
|OPERAND | 
ł--------- 1 
[OPERAND | 
4--------- 1 
|OPERAND | 
ł--------- 1 
| 5 | 
}--------- 1 
JOPERAND | 
}--------- 1 
{OPERAND | 
|OPERAND Z| 
loperand 2| 
ł--------- 1 
| | 
| 7 | 
ł--------- 1 
| a | 
i--------- 1 
| | 
| = | 
T--------- 1 
| | 
| E | 
ł--------- 1 
| | 
| E | 
d--------- 1 
|OPERAND 2| 
ł--------- 1 
| = | 
4--------- 1 
| 3 | 
p--------- 1 
| - | 
$--------- 1 
| 5 | 
ł--------- 1 
| - 
ł--------- 4 
| si | 
}--------- 1 
JOPERAND | 
NE | 
|OPERAND | 
|OPERAND 2| 
4 
|OPERAND 2| 
di 
perands in 
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— rem —— mn —— m on am on — — ma — — — — 
 —— — mm n» — ev — am am we au — mm — — 
em mm zm — e e — n —— men rm — — — 
—— —— an —— «ve a —= a A — — — — -ae 
—— — — — PPP mm —— e — a 
— — — — — — — — — — — — —— — 
—— —Ó — — e at — — — — a a — zm 
— — — — a m a an an ee a mmm — 


|UPSIDE-DOWN 
| COMNA 


— —— —— —o ooo 
—Ó w — ee — a — — n — — au — e 
—— — — — — — — —— — — — — — — 
————Ó— — — — — — — — —À — —— — 
— —— — —— — Á — an am — e — e — M— rm 
—— — — au — — w — —— — — —— — — em 


[DEFINED 
| SUBSCRIPT' 


384 


Treat E roi aa qt AUT. 
| 48 | - |OPERAND | 
Eo Po ae 1 
| 47 |OPERAND 1|OPERAND 2| 
I----4--------- bomi ris DR 1 
| 49 |OPERAND 1|OPERAND 2| 
ł----4---------ł--------- 4 
| 4A | -  |OPERAND | 
T-——-4--------- ł--------- 1 
| 4B |OPERAND 1|OPERAND 2| 
T----d--7--7-7--7-- ł--------- 1 
| 4D |OPERAND 1|OPERAND 2| 
T----4--------- ł--------- 1 
| 4F | - |OPERAND | 
ł----ł}--------- PASA 1 
| 52 | z | S | 
on pei eee je 1 
| 53 | S | = | 
din mp ye ł--------- 1 
| 54 | a | a | 
ł----ł--------- A as 1 
| 55 | S | = | 
ł----ł--------- ł--------- 1 
| 56 |OPERAND 1|OPERAND 2| 
ł----ł--------- t=- 1 
| 57 |OPERAND 1|OPERAND 2| 
j----1--------- ł--------- d 
| 58 |OPERAND 1|OPERAND 2| 
| sted coats EAR ł--------- 
| 5B |OPERAND 1[OPERAND 2| 
aio aaa pS 1 
| 5c | s | = | 
ł----ł--------- Pons 1 
| 5E | - (OPERAND | 
eegen egret a ł--------- 1 
| SE | = | S | 
ł----+}--------- ł--------- 1 
| 60 | E | a | 
tf----14--------- ł--------- 1 
| 61 |OPERAND 1[OPERAND 2| 
ł----ł--------- === 1 
| 62 | = | S | 
ł----4--------- ee 1 
| 63 | = | = | 
(E PAD RENE | 
| 64 |OPERAND 1|OPERAND 2| 
ł----ł-------—- 4--------- 1 
| 65 |OPERAND 1]OPERAND 2| 
{----}--------- ł--------- 
| 67 |OPERAND 1|OPERAND 2| 
T----14--------- I--------- 1 
| 68 |OPERAND 1|OPERAND 2| 
t----ł--------- ł--------- 1 
| 69 |OPERAND 1|OPERAND 2| 
ł----4--------- T3733 ed 
| 6B |OPERAND 1|OPERAND 2| 
test === es (rasvese== 
| 6D |OPERAND 1|OPERAND 2| 
T----141-7-------- ł--------- 1 
| | | | 
| 6E |OPERAND | - | 
1----1--------- ]--------- 1 
| 6F |OPERAND 1|OPERAND 2] 
ț----4--------- pas 1 
| | | | 
| 70 |OPERAND | - | 
Lowe Los 2 os A A A LI= J 


— am — — —— —— —À——Ó— —— — — — — — 


| COMPILER 


| FUNCTION CALL' 


| COMPILER 


| PSEUDO-VARIABLE' 


———— — — wa — ——— — — —— — 
mee — — — —À — e —À e e — n — 
——— ——— — ——— ———— — 
———————— eee e 
—— Ó— — — a —— — — a — 
——— a — —— —— ——— 
——— —— pm —À —— —ÁÀ —À —— — 


Tes cue KI i 
|OPERAND | - | 
ł=-------- eme 1 
[OPERAND 1|OPERAND 2| 
ROMA pè | 
|OPERAND | - | 
ł--------- EE 1 
|OPERAND 1|OPERAND 2| 
Po om 1 
| OPERAND (on 21 
poet puce 1 
|OPERAND 1|OPERAND 2| 
ł--------- ł--------- 1 
|OPERAND | - | 
trm dere 1 
[ - |OPERAND | 
qoem ł—--------- 1 
[OPERAND | - | 
ag a i PE 1 
| - [OPERAND | 
ł--------- PASADAS 1 
|OPERAND | - | 
+--------- potes 1 
[OPERAND 1|OPERAND 2| 
(rese [sese 1 
| F | = | 
qme fee Saas es 1 
[ - |OPERAND | 
ł--------- p-s 1 
| = | = | 
ł--------- (esse 1 
| - |OPERAND | 
ł--------- ł--------- 1 
|OPERAND | - | 
ł--------- EC 1 
| - |OPERAND | 
ARAS ł--------- 1 
| - |OPERAND | 
limen pol cru 1 
[OPERAND 1|OPERAND 2| 
ł--------- ł--------- 1 
| S | S | 
qe === 52. 1 
| a | = | 
I--------- Jones 1 
| - |OPERAND | 
ł--------- ł--------- 1 
| E | S | 
ł--------- Theses 1 
| = | a | 
I-------- ł--------- 1 
| - |OPERAND | 
qt (Eso 1 
| - [OPERAND | 
j--------- ł--------- 1 
| - |OPERAND | 
passe pps 1 
| - |OPERAND | 
ł--------- EE 1 
| E | a | 
jeter eren 1 
| - |OPERAND | 
T--------- Tee me 1 
| n | = | 
a E LGA d 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


| 
| H----------------}----ł---------}---------4 
EE de E ET SR EE, 


| FORMAT' 


| OPERAND 
| OPERAND 
| OPERAND 
|OPERAND 
| OPERAND 
| OPERAND 
| OPERAND 
|OPERAND 
| OPERAND 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


[OPERAND 1|OPERAND 2| 


|OPERAND 1|OPERAND 2| 


D1 
D7 
D8 
D9 
DA 
DEP 
DD 
DE 
DF 
El 
EU 
EB 
ED 
}----------------}----}---------}+--------4 
EE 
F1 
F3 
F5 
F7 
F9 
FB 


D6 
H----------------}----ł---------ł}--------- 


| PUT 


DO 
D2 
D3 
D4 
D5 


}----------------}----}---------}--------- 


Ir 


€— P M 


| END 1/0 


}----------------}----}---------}---------4 


| ITERATIVE DO! 


ma RCM RICE Maes a dai zii ccr aU REM. 


| STATEMENT NUMBER | 
sapo SAA acest 


| CLN1 
pool de pones id 


| STATEMENT LABEL 
| ł----------------ł}----}---------ł}---------4 


| CLN2 
}----------------}----}---------+--------- 


| COMPILER NUMBER 
po poo jon jo >) 


[GET 
————M— — —— a: QE 
——— PY 
ES 
—— P —— -4 
H----------------}----ł---------}--------- 


| REWRITE 
n ii ka E, 


| OPEN 
aaa a ecce a | 


jen 
€—— P — a! 


| CLOSE 
}----------------4----}---------}-+--------4 


| CALL" 
}----------------4----}---------4---------4 


[Pt 
}----------------+----}---------}---------4 


|END PROG 
}----------------4----}---------}---------4 
}----------------4----}---------}---------4 
| PROC" 
}----------------}----}---------}---------J 
}----------------}----}---------}---------4 


[Do" 
——— M — M ÓÓ E 


|IF' OR ON 
io Geer ala aida a 


| COMPILER LABEL 
| | PREFMT 


|END BLOCK 
|END PROG 2 


| UNLOCK 
| BEGIN' 


| OPERAND 
| OPERAND 
| OPERAND 
| OPERAND 
| OPERAND 
| OPERAND 
| OPERAND 
| OPERAND 
| OPERAND 
| OPERAND 
|OPERAND 2| 
| OPERAND 
| OPERAND 
| OPERAND 
| OPERAND 
| OPERAND 
| OPERAND 
| OPERAND 
| OPERAND 
| OPERAND 
| OPERAND 


poto joo 4-4 
|OPERAND 1|OPERAND 2| 


|OPERAND 1|OPERAND 2] 


| OPERAND 
| OPERAND 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


9E 
| AO 
H----------------}----ł}---------4---------4 
A1 
A2 
A3 
AU 
A5 
A6 
A7 
A8 
A9 
AA 
AB 
AC 
AE 
AF 
B3 
B5 
B7 
B9 
BB 
BC 
BE 
BF 
CO 


| AD 
————  — C À gà. 


———— X 


porto toto) 


pon a po po foo, 


—— M——M——— M Don manman 


| 
| o e 
| 


————— — M he 


————— P RP. 


ļ----------------ł----}---------}---------{ 


|~---------------}----}---------4--------- 


[----------------}+---}---------4---------1 


H----------------4----ł---------}---------4 


— ——— NIRE 


}-------------=--}----}---------}---------4 


ae E ae 


ļ----------------ł----ł---------4---------4 


|---------~------4----}--~------+---------4 


H----------------}----}---------}---------4 


— —— n 


}----~----~------}---- topo] 


Lech) 


}----------------}+---}---------}---------1 


p---------------- f= Ea 


a DO, 


ES 


poet crue cim sitem tors Veg co um v 


|GO OUT OF BLOCK 
|ITERATIVE DO 


[Ki 
[A 
|CALL 
|E 

| RETURN 
[P 

|R 

[GO TO 
| GOLN 

| BUYT 

| BUYX 

| HSELL 
| SELL 

| BUY 

| BUYS 

| PROC 

| BEGIN 
[DO 

[IF 

| SN2 

| NOSNAP 
| FORMAT 
| TO' 


[X 


FD 
FF 


| OPERAND 


| ‘ams 
H----------------ł----ł---------4---------4 
[OPERAND 1|OPERAND 2| 


C2 
c4 


—— —— ofon 


EEN 
| WHILE' 


|OPERAND 1{OPERAND 2| 


| C7 | 
c9 | 
CC 


|--------~~------}----}---------4---------4 


———— — — M Bá 


LL--l--222l-ll2l2dK---4--2-----—-1----2----J 


| WRITE 
| READ 
A 
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Internal Formats of Text 


Appendix D: 


TEXT CODE BYTES IN PSEUDO-CODE 


Dis 


an _— — — A A KA A A KA A KA A AA A XA A A o e 
i i | | i l i l l i | i Ec la db doo | 
i i i I I l ] I i ] | | IZIZIZIZI 
| i i i l | | | i l l l IOIOIQOILQO! 
i i l I l | l | l l | | LA LA lata) 
pp et HH bb bb + A 
| l l l l i i l | | l | I | I ] i 
I | | | | I i i l | | I l i | i l 
bb et pp + — $ — et tt pp 
i | | | it | | | | l I l l | i ] 
I i l | NN 1 le 1 i | l Pd (ole ls 
I | Im d 65101! [> 1219 g!dGigid!olilolol!lo!l 
i RECHNEN IZIZIQ IM IPIBISi S158 15 6 
IZGIGILZIZIO1 101010 IAIRMIZIHIZIZIZIZI 
pH KA LG FD IMI 1010192 IGI!OIQOIOIOIOIOI!I 
PE +] — ben bn a bn + pp pp TI II pe eer 
i l i i | l ] | | | | | i i I bis | 
IQ TIQIAZIOI1NI | l LA |! I | i | ] Ex 
KA ISIBSIBIZSIQ1IQI1IOQ1KS IAIA TA TA TA TAQT1TAQI 
IVIZISIZIZIZIQ1XIN 190121011010 1501 
PE E — Ht Ht de e $ pp + — de — dh — de — + — 
i | | | I 1 i l 1 i l l | | | ] | 
l i 1 l 1 ! i l IN de 1 | ! rote 1 | 
(in) i Ix i le la 1561 l INIxXIOIGI 
IH IRIKHIH IQDIZIHISXSIQV 101 I IZIN KOU 
IOIzIZIOI!untiltililxidiü IMI i (oO UO FAI AN 
WE DE ius ee ene E E EE don n Dëser 
| I l 1 l l I | 
i | i | lo! ] ladj l i l l i i i IAI 
ISGIATAI1IJIIABGIBIX TA TA. tala I9 lgita 15151 
IA IVIAKSIDQDITQWIAEDQTATOQTA= IQVIAKIQDITZIAILLIOI 
a E SE aa A 4 47. 4 47 
l | | 1 l kòn IA I l I l | ] | Ia! 
pde pog mop mb d EC IB IQ I1AIAIAIAIAIBIP1 
LATO1KEIDIZIOQI (mid IQV-IKIOQDI-IZIAITAEIOI1 
pp pp pp pp bn pep Tip IT 
lw | l | I | l l [ l l | | l | | i 
!« | l E I ] l I ] i l l i l | l 
IE | IG te LA l l I I ] l | ] i l F3! 
OTO TOTO FÒ 4 l | l | | l | | LOTRI 
IQ TATATAGIAIZIOI/X TA IO1ISEIQATZIATHS IA 
bat pp Ht He +++ —. 
l l Le dd! I Le ld) ] | dB d l l | l 
l Ix IilaQrlQ!Qld!«&ioliaid izimiddt!d! lal | 
Ix ildidididixixixinx 161x1Xx14121J3121 
PAPNIDINININVINIHIN icoitimimioliolol!lo!€ 
PR aia manaia miana manadas sada oda aoon aiani siaal et Y bn Y et — cl 
|o | i i I ] Ic ioci | | l ] | l ] | 
La P oj 6 o 101 IG IA TQTA 1KHIBIGianianinias 
iVtH intial IG TA TA TA 1891010418 1H01D15D1 
IH IO leit 1919192014 IQ IKÉEIDIZIAI1SAENODI1 
prop pp bb bb bb + — + — + — | 
LE 1 Io d My (elei l | l l | | I I 
IQ IE IB IH IAIGBIDIODIG iInmxin io n 6o P0) ro. d 
IQ TA IER IER IEBIZIZIZIO IQIQIQIQIQIRIRI 
Idt'toltldidiadidididid IOQ1ISÉEIQDITSZIAISZINDI 
PR -- — + — += += + et tt — — + — de pp bb + — 
I l | i (e | l l [ l l l l | (e 
LIG E05 b o db Et l j | ] ] | l l IO IHI 
IV ITIQTEHI1IAQAI!QI1IAHIKIGSIX 1IKIKHIKIKHIKI1ISIKXI 
tAIATTZIZIAMIZIOQOIXIJd IQV1KHI1IQATZIAIUI1AI 
kori pp pp — + — + — + — de — + — + — 
I le 1 i i I | i ] i i le 1051 l l | 
tailaiuivuIi (Sim IBI ] le IBIOITE I l I 
IO ImimiZIm&IMuIZzIidiEpBiIitmiI!ltmil!itruloWlizz! l | 
IPH IA IDIHISIBINDIQDISENR ISIS taint fas ] 
Im if tà EO INI CIDA df ih lw LA iwi a I l | 
bt cb pp pp pp pp + — 
I i | l l I l | l= Je te | | ! (SI 
(RI l IZ | I IZIQGIQG 1G larmmiiat le 101 
ISPIMIVIHDIBIMNIHIOIZ izioimid!oluoi!etn! 
IO TO TQ1TIAQI1IZIQIBIOV Io0Olft ldicolmsirmsimi:u!Ii 
IDIRIN IOILIVNIIQIMM I:MIAIMIAIigiatieas 
Pounds ee a ee ask lar èk EY. 
i I - I 
I | IO I I ! | i |- D | l le le te | 
(ei INIOIMIs ip 1419 IHI 1QIQIS IS 1Q | 
IZ ISIAH ibe lei liaidlIO !oi»5idim! Ic IAI 
IMINIMIVIVDIMIDIM9 Ie |IB1TATdIQ1A tate t 
IO VOFPMIAIAIB IMA IDI 9 I1£$Qilisio i1 |mBlkÓ lH I 
fee a qo cu Me a ip Wa d ag e 
| l 
IO THAN IM is IDIA l IO iniu! INIZ LE LOU 
I>I1I>I1I>I1I>1I>1>101D10 I(CGTQATA TA IG IO 
IODIOIloOIOIOIOIOGIOIZ «“IBIKSGIOQO1O1IA TA (HI 
IA TA TATA TATATATA JA IiIminm id IE iHIBGSIH! 
LLL — zb ans zb sen ———— e n! ae —— cb — dw oo ankete mw che a aa] ven wb oun da ve an) 


0 
1 
$ 
3 
L 
5 

16 

17 
8 
9 

[A 
B 
C 

LD 
E 
E 


pseudo-code 


the various 


The format of 
units is as follows: 


— — anis —ÓÀÓ— “nan Oun anven —À a aE ee 


TEXT FORMATS IN PSEUDO-CODE 





6. 


a 


of a 

a 
symbolic 
to 


consists 
instruction 


the 


this 


one-byte operation code followed by 
the 


te unit: 
after 


by 


immediately 
representation of 


two-byte literal offset, end it appears 
which if refers. 


Three- 


symbolic 
designed in 


essentially a 


code Design 


Pseudo-code is 
representation of machine code, 


Pseudo- 


code 


machine 


it into executable 


a way that it is possible to directly 
by an assembly process. 


such 
transform 


follow- 


there are four basic 


yte unit: 


Five-b 


five-byte units which have the 


U 
I 
[ 
[ 
U 
[ 
NIN 
la 
) 
| 
| 
i 
1 
H 
1 
i 
1 
L] 
1 
{ 
Q I 
LI 
l 
[| 
lo 
[| 
e I 
D e 
A) | 
(Y) | 
E 1 
M «41 
O la 
4 IO 
Se E 
& 
«A D 
Q 
p 
PN 
a 
fil Ow wy 
Ou OO 
ASN 
A OD Q 
© Yt Sa 
H D yo 
[o goo 
Di O A 
OOH D 0 
NOS 
OO Oo Gp 
A SO 
25442 DA Im 
Q O -A Q 
lo QP 
Q M [i] 
S "000 
O NG G-A 
ed A Ei 
Gao a 
[n] od 
HEU e 
DM Gm 
OPAHO v 
ns OUD uU 
A SN Om 
Q 20400 
"d N oO 
D Dm CG gel 
g SPS 
OTTWUOO A 
LO £ d «d 
ZO 04. 
PORTH OG 
i O MO 
Gad O U-A 
S Ow nd OG 
H 308 
XL 0 O-A Y 
O 4 H OO sed 
O Sam E 
DO Su O 


By having most 


five 


units either three or 
the scanning of pseudo- 


long, 


bytes 
code is a fairly straightforward process. 


386 


Bytes 
1 2 2 
Cee Rea eo ea Mtge ee en IUS 1 
| OP | | | 
| | R3 | OFFSET | 
| CODE | | | 
AA Lc Se Iosis J 
Bytes 
1 2 2 
Con a Vie pe pan E E TENUIT 1 
| OP | | | 
| | R1 | R2 | 
| CODE | | | 
Coa domi E kLlccezlcoccaccl 4 
pomo A ee A hen IT 1 
| OP | 1 | R2 | 
| | HEX — | 
| CODE | O | DICT REF | 
lea Lira br ae pa J 


Using these units with, if necessary, a 
three-byte unit, it is possible to symboli- 
cally represent any possible RR, RX, RS or 
SI instruction. 


Variable length unit: the format of 

this is: 
Bytes 
1 2 

(ëm AN See aa E 1 

| OP | | | 

| FLAG | VARIABLE | 

| CODE | | | 

Enix p —— rro e J 


With a specially designed variable field 
described by a two-byte flag, it is possi- 
ble to represent any SS instruction with 
this unit. 


The first byte of the two-byte flag 
indicates the format of the variable field 
and the second gives the length of the 
total unit. 





MA tn 7 


The following examples illustrate the 


basic forms of an RX instruction and the 
way in which they are represented in 
pseudo-code. 
L R1,JOE 
Bytes 
L 2 2 
prann T7-0----------4------2------- 
| L | 0 R1 | DR(JOE) | 
Lose AAA Lor else 4 


L Ri, JOE+24 


Bytes 
1 2 2 
(Se qoum cine Pre eee 
| L | 0 R1 | DR(JOE) | 
boca be Ripe ee reo OUR FUE tae Ate RAE ER 4 
pc em A a 1 
| OSM1 | 24 | 
bette erte 4 
L R1,JOE(R3) 
Bytes 
1 2 2 
[ÉSTA quce c Toe En PERE 
| L | 0 R1 | DR(JOE) [ 
ket Ko re cari «eiectus ce E tad aus al 
PSA het eeei m 1 
| OSM2 | R3 | 
Lan tata seke espera ONDE NUR: J 
L R1,JOE+24(R3) 
Bytes 
1 2 2 
iia E EE cea quce mmus 
| L | o R1 | DR(JOE) | 
orandum Dusan IESUS K O 4 
Ee EE ae S 1 
| OSM3 | 24 | R3 | 
Esca dno x eu m Ant eee J 
Alternatively, JOE might be a base reg- 
ister in which case the dictionary ref- 
erence would be replaced by a symbolic 
register. The two forms are distinguished 
by setting the flag bit of the first 
symbolic register equal to one when a base 
register is intended. 
L R1,0(R3,R2) 
Bytes 
1 2 2 
porem PORTAR MAA AS 1 
| L | 1 R1 | R2 | 
Lll: LE A A J 
um TRES TREE 
| OSM2 | R3 | 
AA A maru J 
When a branch instruction is generated 


which branches to a compiler generated EQU 
value, bit two of the second byte is set to 
one to indicate that the second field is in 
fact an ECU value. 


Bytes 

1 1 1 2 
fo qu LUIS qoos eee qu 1 
| BC | 01 | HEX [EQU VALUE| 
tasas Li eani d re lcd J 
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Bytes 
1 1 1 2 
poemata PS PA qe eee 1 
| | 1 | | R2 | 
| BC | 0 | HEX  [--------- 
| | 0 | | DICT REF| 
pL. Lis AA MS PEOR SUE J 
RS Instructions 
The following examples illustrate the 


instruction and the 
represented in 


basic forms of an RS 
way in which they are 
pseudo-code: 


BXH R1,R2,ALPHA 


Bytes 
1 2 2 
MESS q-------------Q--------—---- 
| BXH | 0 R1 | DR(ALPHA) | 
ARAS ES Lu ios J 
PSA POTE menm 
| osm2 | R2 | 
ansia di a is 4 
BXH R1,R2,ALPHA+2U 
Bytes 
1 2 2 
pore E Se DEE EE 
| BXH | 0 R1 | DR(ALPHA) | 
pic e A Dean dile eee J 
ecc e e e 
| OSM3 | 24 | R2 | 
Lena AE Li J 
Alternatively, ALPHA might be a base 


register in which case the dictionary ref- 
erence would be replaced by a symbolic 
register as in the RX instruction. 


SLA R1,6 
Bytes 


The following example illustrates the 
form of an RR instruction and the way in 
which it is represented in pseudo-code. 


AR R1,R2 
Bytes 
1 2 2 
a Umm TASTEN RRRS 1 
| AR | R1 | R2 | 
a er D a et ea a in Ls J 


388 


The following 
basic forms of 
way in which 
pseudo-code: 


examples illustrate the 
an SI instruction and tne 
they are represented in 


CLI BETA,X'FF' 


Bytes 
1 2 2 
posce queen e unie coat eae mem 1 
| CLI | o FF | DR(BETA) | 
lonas koli eee A oi a J 
CLI BETA+4,X'FF' 
Bytes 
1 2 2 
[cmm qoem mc men Ne Ae eee nEn 1 
| CLI | 0 FF | DR(BETA) | 
Lies dedo mess Lal teo J 
A qose ne 
| OSM1 | T | 
Edu sa AA J 
Alternatively, BETA might be a base 
register in which case the dictionary ref- 
erence would be replaced by a symbolic 
register. 


SS Instructions 


Basically, an SS instruction consists of 
two base registers and a length byte. 
Since this does not conform to the format 
of other items of pseudo-code, it is neces- 
Sary to represent an SS instruction with a 
variable iength field, the length of which 
is specified in the second of two flag 
bytes immediately following the operation 
code. 


This variable form of pseudo-code will 
be used to convey items of information 
internally between compiler phases, at the 
Same time maintaining the items in the 
guise of pseudo-code. 


The first bit of tne FLAG indicates 


whether or not the unit represents a 
machine instruction. In the former Case, 
the format of the instruction is: 

Bytes 

1 1 1 1 2 2 2 2 

rn aa dadas queque Less ere egen 
JOP | | | | | | | | 
| | FLAG | LENGTH | F1 | F2 | F3 | F4 | F5 | 
| CODE | | | | | | | | 
taa E GE AA VE ES E GE 


The format of the FLAG is: 


Bit Zero One 
1 Always zero 
2 F2-dict. ref. F2=sym reg. 
3 F3-dict. ref. F3=sym reg. 
4 F4 not present F4 present 
5 F5 not present F5 present 


6-8 Not used 


The Fl field is identical to the length 
field in the SS machine instruction. The 
field contains one or two lengths which are 
each one less than the corresponding 
lengths used in Assembler Language. The F4 
and F5 fields contain literal offsets. 


Compiler Function (Git 1-1) 


Y 
In compiler functions, the format of the 


FLAG depends on the operation code. Thus: 
| conv | FLAG | LENGTH | Fi | F2 | 
luso A Beet E ase T: 
The format of the FLAG is: 
Bits Both Zero Both One 
1 Always one 
2 and 3 Fi=dict. ref. Fi=TMPD operand 
4 and 5 F2=dict. ref. F2=TMPD operand 
6-8 Not used 


The FLAG in the IGNORE item does not 
contain any information. 
illustrate the 


The following examples 


basic forms of an SS instruction and the 
ways in which they are represented in 
pseudo-code. 
MVC ALPHA(7),BETA 
Bytes 
1 1 1 1 2 
juve | x" oo] 8 | 6 [DR (ALPHA) | 
e OPEN AA AA F 
2 
| DR (BETA) | 


ZAP ALPHA+3(14), BETA(6) 
Bytes 
1 L 1 1 2 
| ZAP | x" 10*] 10 113 5 [DR (ALPHA) | 
2 2 
O s E TA. 1 
[pr (BETA) | 3| 
BONN aed ors MEE J 
MVC ALPHA(6), BETA+11 
Bytes 
1 1 1 1 2 
juve [x o8" | 10 | 5 [DR ALPHA) | 
Aiea E EE AA E 
2 2 
| DR (BETA | 11| 
E REE 4 
AP ALPHA+3(14), BETA+11(6) 
Bytes 
1 1 1 1 2 
[^p (oS Se ARS 
|AP |x'18'| 12 113 5 [DR (ALPHA) | 
kisoi A CAN e ane 
2 2 2 
[DR (EETA) | 3| 11| 
AN A IS 4 
Alternatively, ALPHA  and/cr BETA might 
be base registers, in which cases, the 
dictionary references would be replaced by 


symbolic registers and the FLAG byte  wculd 


be set accordingly: 


MVO ALPHA(14), 11(6,R1) 
Bytes 
1 1 1 I 2 
[mvo]x* 2811 10 113 5 [DR (ALPHA) | 
A A O be Lap 
2 2 
pem m «peer 
| RI { 11] 
Lee pee wee | 


Pseudo-code Format between IEMRA and IENRFE 


Fields that may hold a dictionary ref- 
erence or register number have, at this 
time, the possibility of holding a literal 
offset. The presence of an offset is 
indicated by the first bit of the field 
being set to one, and earlier flags being 
set to 'register.' 


Appendix D: Internal Formats of Text 389 


7. TEXT FORMATS IN ABSOLUTE CODE 


Where a standard set of assigned reg- 
isters is to be used for a section of code, 
e.g. in the construction of prologues, or 
during the generation of addressing 
instructions, it is possible to generate 
instructions with registers in absolute 
code, instead of the normal pseudo-code 
two-byte symbolic registers. (See “Text 
Formats in Pseudo-Code" in this Appendix.) 


Sections of absolute code are preceded 
by ABS markers and followed by ABS' mark- 
ers. The operation codes are the same as 
the normal pseudo-code instructions (see 
"Text Code Bytes in Pseudo-Code" in this 
Appendix), but the instruction formats dif- 
fer, as shown in the following examples: 


RR Instructions 


Bytes 


r o 
| OP CODE | R1 R2 | 
Ll Se dsc ei J 


Bytes 

1 1 1 
AOS PAL RESE ee ee 
| OP CODE | R1 X2 | B2 | 
AA AA duce 4 

2 1 2 
Pine ee ———— ]rt pao ooo 
| DICT REFCE | OSM2 | OFFSET | 
epe quM UT Lopes AA J 


Bytes 
1 1 1 2 
REN ECRIRE 1 
| OP CODE | LENGTH | Bi | DICT REFCE| 
konte AAA A AA 4 
1 2 1 2 
| B2 | DICT REFCE | OSM1 | OFFSET | 
A ua po as ios AAA J 
1 2 


r T 7 
| OSM2 | OFFSET | 
tee bocooo.o. J 
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Bytes 


Other Instructions 


Bytes 
1 1 1 
Come imm eem qvem mpm 
| OP CODE | R1 R2 | B2 | 
ple I oe AAA clle J 
2 1 2 
PET q7--------1-------- 
| DICT REFCE | OSM2 | OFFSET | 
CA MI rs Jis ie 4 
SI Instructions 
Bytes 
1 1 1 2 
DEM MIR OPEM i 
| OP CODE | MASK [B1 | DICT REFCE | 
Loaeza AAA EN ASP A J 
1 2 
| OSM2 | OFFSET | 
Wee Se Loles J 
Note that the OSM1/0SM2 markers and their 


following offsets are all opticnal; note 
also that the OSM2 byte does not have a 
register following it, as in normal pseudo- 
code, but a literal offset. 


The first bit (bit 0) of the byte 
containing the base is used as a flag. lf 
this bit is a one, the following two bytes 
contain, in their low order position, a 
twelve bit offset, instead of a dictionary 
reference. 


After Phases RA and RF all instructions 
in the text will ke in absolute code. 


SS waw anve ae ate avan YS ttant enn ES ante ava anmenm anme ane “ewa mat — TS EE 


Any expression occurring in an attribute 
must be pat into a form which is acceptable 
to the translator phase. This means that 
it must look like a source statement. To 
comply with this, all expressions dealing 


with array bounds, string lengths, 
DEFINING, and INITIAL value iteration fac- 
tors are converted into assignments to 
function references. These functions have 
a special meaning. They are not entered in 
the dictionary, and their dictionary ref- 


erences are to a region in the communi- 
cations area. The pseudo-code physical 
phase dealing with each particular function 
generates in-line code instead of a func- 
tion reference. 

All the statements of this type are 


generated in the source text after the end 
of the original source program. They form 
a second program and are referred to later 
as the “second file." 


The statements generated have the fol- 
lowing overall format: 


Byte Number Description 
1 Code byte SN2 
2-3 Dictionary reference 
4 Options byte 
5 Statement type markers 


6 onwards Statement body 

The dictionary reference is the ref- 
erence of a second file dictionary entry. 
This is described in Appendix C. The 
Options byte is that for the options opera- 
tive ina prologue, i.e. no interruptions 
are accepted. 


Array Bounds 
The format of the second file statement 
for array bounds is as follows: 
Byte Number Description 
1 Assignment statement marker 
2 Code Byte x'00' 
3-4 ADV code X'0002' 
5 Compiler pseudo-variable 
6 Left parenthesis 
7 Code byte x'00' 
8-9 Dictionary reference of 
array 
10 Triple operator code byte 
x'44" 


11 Code byte X'5E' 


12 Code byte X'"00' 

13 Code byte X'00' for lower 
bound, x'01' for higher 
bound 

14 Number of the dimension 
whose bound is referenced 

15 Right parenthesis 

16 Triple operator code X't46' 

Lies Expression for bounds 


Statement terminating  semi- 


colon 


Multiplier function statements are used 


to denote copying cf a section of one dope 
vector into another. The format is: 
Byte Number Description 
1 Assignment statement marker 
2 Code kyte x'00' 
3-4 MTF code bytes x'0010' 
5 Compiler call marker 
6 Left parenthesis 
7 Code byte X'00' 
8-9 Dictionary reference 1 
10 Triple operator code byte 
x'tuy" 
11 Code byte x'00' 
12-13 Dictionary reference 2 
14 Triple operator code byte 
x'uy" 
15 Code byte X'5re' 
16 Code byte x'00' 
17-18 Offset 1 
19 Triple operator code tyte 
xy" 
20 Code byte Xx'5E' 
21 Code byte x'00' 
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22-23 Offset 2 

24 Triple operator code byte 
x'ayt 

25 Code byte X'5E' 

26 Code byte x'00' 

27-28 Length 

29 Right parenthesis 

30 Statement terminating semi- 
colon 


This statement requires the number of 
bytes specified by the length to be moved 
from the dope vector of the item at dic- 
tionary reference 2, starting at an offset 
of offset 2, to the dope vector of the item 
at dictionary reference 1, starting at an 
offset of offset 1. 


String Length statement 


The string length statement is used to 


initialize the maximum length slot in a 
String dope vector. The format is: 
Byte Number Description 
1 Assignment statement marker 
2 Code byte X'00' 
3-4 SDV code X'0004' 
5 Compiler pseudo-variable 
6 Left parenthesis 
7 Code byte x'00' 
8-9 Dictionary reference 
10 Right parenthesis 
11 Triple operator Code X'46' 
Es Expression 


Statement termination semi- 
colon 


The dictionary reference is that of the 
item whose dope vector is peing initial- 
ized. If the expression is defining the 
length of a string being returned by an 
internal function, then the dictionary ref- 
erence is that of the entry type 2 belong- 
ing to the label. In Figure 6 the ref- 
erence is to Bor C depending on whether 
the statement appeared in a PROCEDURE/ENTRY 
Statement, or an ENTRY attribute. If the 
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item is a data item, an external procedure, 
or a formal parameter entry point, then the 
dictionary reference of that particular 
item appears in the statement. 


EE ere SA, ere EE cd Ce AONE aa 


INITIAL value statements are used to 
initialize a vector of storage used to 
contain iteration factors. It is implied 
that the value of the expression must be 
converted to type integer. The format is 


as follows: 


Byte Number Description 
1 Assignment statement marker 
2 Code byte Xx'00' 
3-4 IDV code 
5 Compiler pseudo-variable 
6 Left parenthesis 
7 Code byte X'00' 
8-9 Dictionary reference 
10 Right parenthesis 
11 Triple operator code X'46' 
12:5 Expression 
Statement terminating  semi- 
colon 
The dictionary reference is to the item 
being initialized. The integer is the 
number of assignment statements of this 
type, and for this variable, that have been 


generated before this one. 


ar EE — —e n ae O ont ati antw ee anm EE EE AS RL ED LEN ce Ste nm ea. 


| A statement is generated for a variable 
[which is declared BASED with its associated 
jpointer given, and for a variable which is 
lan OFFSET with its associated base given. 
[The format of the statement is similar to 
[that of the INITIAL value statement except: 


Byte Number Description 


3-4 PEXP code (BASED) X*0016' or 
BVEXP code (OFFSET) xX'0017' 


12 Expression (which must be a 
Single dictionary reference 
of the associated pointer or 
base) 


The dictionary reference in bytes 8-9 is 
that of the BASED or OFFSET variable. 


Second File Statements for LEFINED 


———— EE SS A «wes etat —Á ———— ———À —— —— 


Second file statements are generated 
when an expression is associated with 
DEFINED, but the expression does not  con- 
tain any iSUBs. The format is: 

Byte Number Description 


€ E —— HÀ 


1 Compiler assignment  state- 
ment marker 


2 Code byte X'00' 


3-4 ADF code; 
X'0011' for base only 


X'0012' for subscripted base 
X'0013' for base with iSUB's 


5 Pseudo-variakle marker 
6 Left parenthesis 
Base7and subscript list 
Right parenthesis 


Statement terminating semicolon 


9. | PSEUDO-CODE PHASE TEMPORARY RESULT 


va ve anm Sa “nm M wi a vwe me E aa 


——————— a a —e—— —e —e — 


All information on temporary results is 
contained in this stack. Each item in the 
Stack consists of 10 bytes. A maximum of 
200 items is allowed. 


Byte 1 Flag 1 describes the addressing 
method contained in bytes 
5 through 10. 2 bits in 
this byte are also used 
during the release of 
temporary results 


Byte 2 Code 2 describes the radix, 


Bytes 3-4 P,Q 


Bytes 5-6 BASE 


Byte 7-8  NDX 


Bytes 9-10 OFS 


Strings are 
ways: 


scale, mode, string type 
etc. of the temporary 
result. The format of 
this byte is identical to 
the similar byte in the 
dictionary and the DED 
used by the Library sub- 
routines. routines. 
(See "Data Byte" in 
Appendix C.) 


describes the precision 
and scaling of arithmetic 
type results 


in one of the following 
forms: 


1. "Reg by value" reg- 
ister containing the 
result - no index or 
offset is allowed. 

2. "Reg by value" reg- 
ister containing the 
base address of the 
result stack 

3. Offset from beginning 
of current temporary 
storage for results 
held in the temporary 
storage stack 

4. Dictionary reference 
which specifies the 
base address of the 
result of a subscript 
calculation 


in one of the following 
forms: 


1. Symbolic indexing reg- 
ister for BASE type 2 
and 4. 

2. The number of bytes 
required in the tem- 
porary core stack for 
BASE type 1 


which is a literal offset 
to be inserted in the 
base address. when used 
with BASE type 1 the 
actual temporary offset 
is the sum of the offsets 
and the number of bytes 
required in the stack is 
the sum of the contents 
of OFS and NDX 


described in the following 


If the string is of fixed length less 
than 256 bytes, it is given storage in 
the core stack. This type of string 
has a dictionary entry if it is passed 
to a subroutine. 
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If the string is of variable length or The 'top' of the stack is indicated by 
longer than 256 bytes, the storage is two pointers:  PSTK and LSTK.  PSTK points 


bought and sold when required. This to the 'physical' top of the stack, which 
type of string always has a dictionary is the last item added.  LSTK points to the 
entry. "logical" top of the stack, which is the 

next item to be released. The difference 
If the string has no dictionary entry, is necessary because the temporary storage 


it is described by the usual CODE Stack may not be released in the same order 
bytes, the temporary core offset in as the description stack. When an item in 
BASE, and the byte length in NDX. the description stack is released, the 

corresponding temporary storage may not be 
If the string has a dictionary entry, at the top of the stack storage. As the 
it is described by the usual CODE bytes Storage stack is always released in order, 
and the dictionary reference IN BASE. the description is flagged and the LSTK is 
The dictionary entry describes the reduced by 1 item. When the corresponding 
location of the string which may be temporary core is released from the top of 
either the temporary area offset and the storage stack, the description is com- 
size for the first type, or a BUY pletely removed from the 'pbysical' stack. 
statement for the second type. 


pense queer eme n agora SE EE ees SSS ee ee oe ee onn 1 
| | | [Whether F7| | 
|FLAG | F5 | F6 | applicabile | Comments | 
-----}----------- PE EE + -------- === === --- === === === === 
|X'OO'|Dictionary | = | Yes | | 

[reference | | | | 
Ix'0o2'|Dictionary | - | No | STRUT2 output -- must SELL dictionary ref. | 
| |reference | | | | 
|X'O4' [Dictionary | - | No |REPEAT function result. | 

|reference | | | | 
Ix'05'|Dictionary |Dictionary | No |SUBSTR function result. | 
| [reference 1|reference 2] | | 
[x'20'|Dictionary |Index | Yes lArithmetic subscript, or SDV for varying | 

{reference [register | [string subscript. | 
|X'41" | Symbolic [Dictionary | Yes |Non-adjustable fixed string subscript, with | 
| |register |reference | [DROP in STRUT2. | 
|X "49" | Symbolic [Dictionary | Yes |Non-adjustable fixed string subscript, without | 
| |register [reference | [DROP in STRUT2. | 
[x'80'|Register | - | No {item in register -- F7 cannot exist. | 
Ix'co'|Workspace | = | Yes | | 
| [offset | | | | 
|x'ci'|Workspace  |Dictionary | Yes |SDV for adjustable fixed string sukscript. | 
| |offset |reference | | | 
Ix'c5'|Workspace [Dictionary | No |SUBSTR pseudo-variable result. | 
| [offset |reference | | | 
—À Loose quud ql i AS ee scu E E i 


[Notes 1. Since F6 cannot be used for both an index register and a dictionary | 
| reference, bits 2 and 7 of the FLAG byte cannot both be 1. | 
| 2. Many other bit configurations in the FLAG byte are meaningful and could | 
| be used for future applications. | 
L 4 


—— — «nt vm mm — Gan — n van E — an rm M X 4 enn — — — vm en mn — vr — ER — ee 4 ae Gn Gan Ga  — — — Á——— —— — —— X — — —— e —— — "— — — — —— — mm ane "— ee «NS ann — an — — en — mp "— — E tin s E Gan — — — —— — — 





eFigure 12. Temporary Descriptions in Pseudo-Code -- Use of TMPD Triple Fields F5 and F6 
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String length for coded  non- 
adjustable strings (maximum length 
for varying strings) 


Temporary Descriptions in Pseudo-Code b. 


Descriptions are passed between  pseudo- C. Picture dictionary reference for 
code phases using two or three TMPD data with picture 
triples, with the following formats: 
———== T-7-7--4----T----T4----41 L. F5 and F6 are at present used as shown 
| TMPD |FLAG]| F2 | F3 | F4 | | in Figure 12. 
}~----- $----1----4----1---- 
| TMPD | F5 | F6 | 
Lesen o o o 4--------- 4 5. F7 can be used by addina X'10' to the 
| TMPD | F7 | l FLAG byte in all cases which give a 
Loan l22------- 1--------- 4 | meaningful result (see Figure 12). 
^1. FLAG describes the use of fields F5, 
F6, and F7. 
Bit 
Number Value Meaning 
10. LIBRARY CALLING SEQUENCES 
0 and 1 00 F5 contains a dictiona- 
ry reference 
11 F5 contains a temporary Internal library routines are used for 
workspace offset such things as data type conversion, where 
01 F5 contains symbolic there is no explicit reference to the 
register with address routine in the PL/I source program. The 
of item arguments are handed to the routines in 
10 F5 contains register registers. In pseudo-code form, assigned 
with value of item registers are used, and special markers, 
2 0 F6 does not contain IPRM and IPRM' are used to indicate the 
index register calling sequence to the register allocator 
1 F6 contains index reg- phase. Internal library calls appear in 
ister pseudo-code as: 
3 0 Two TMPD triples are 
used IPRM 
1 Three TMPD triples are L 1, (ARGUMENT 1) 
used, and F7 contains L 2, (ARGUMENT 2) 
an offset © oj à emen eei Ei eee eer 
4 0 Normal setting. String L 15, IlHb-----9- (ROUTINE NAME) 
utility  STRUT2 drops BALR14, 15 
symbolic register in F5 IPRM' 
if used for input 
1 String utility  STRUT2 
does not drop symbolic The second byte of the IPRM item is used 
register las a flag byte. The settings are as 
5 0 Normal setting (follows: 
1 Result of an invocation 
of SUBSTR or REPEAT 
6 0 No SELL is required Bit 0 Must be zero 
1 User of this descrip- 
tion must SELL  dic- 
tionary reference in Bit 1 END, or RETURN statement nct 
F5. set by string in BEGIN block calling 
utilities for adjusta- sequence 
ble string result 
7 0 F6 does not contain a 
dictionary reference Bit 2 END Statement calling 
1 F6 contains a dictiona- sequence 
ry reference 
2. CODE contains the data byte 


(describing type, radix, scale, mode, 
etc.) 


F3 and F4 contain: 
a. Precision and scale factor of 
coded arithmetic type data 
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External librar corres- 
pond to explicit references to functions or 
I/O statements in the PL/I source program. 
The arguments to the routines are placed in 
workspace, and register 1 is set to point 
to the first argument. For pseudo-code 
form the calling sequence is preceded by an 
EPRM marker and followed by an EPRM' mark- 


er. Thus, the library calling sequence 
appears as: 

MVC WSP (N), (ARGUMENT 1) 

EPRM 

LA 1, WSP 

L 15, IHE------- (ROUTINE NAME) 

BALR 14, 15 

EPRM' 


The second byte of the EPRM is used as a 
flag byte. 


The setting is as follows: 
Bit 0 A calling sequence to a PL/I 
procedure 


ll. DESCRIPTIONS OF TERMS AND ABBREVIATIONS 
USED IN TEXT DURING A COMPILATION 


The table in this section gives first, 
the phase in which the term is used; and 
third, a brief description of the meaning 
of the term or abbreviation. 


The phase in which the term or abbrevia- 
tion is used is given in the second column 
of the table. The key to the code used is: 


R After the Read-In Phase 
PS During the Pseudo-code Phase 
T A triple or translator input 
code byte 
Term or Used In 
Abbreviation Phase Description 
A R,T Character string for- 
mat item 
ABS PS Indicates the start 
of absolute code 
(Appendix D7) 
ABS' PS Indicates the end of 
absolute code 
ADI PS Addressing 
instruction (used 
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ADR 


ADV 


ALIGN 


ALLOCATE 


APRM 


ARCO 


| AREA 


ARGUMENT MARK 


ARRAY CROSS 


SECTION 


ASSIGN 


ASSIGN BYNAME 


ATTRIBUTES 


PS 


PS 


R,T,PS 


x 
wel 


R,T 


between phases RA and 
RF) 


The two byte operand 
contains a register 
for use by final 


assembly for address- 
ing branch destina- 


tions beyond 4096 
bytes from the pro- 
gram base 

Used in 2nd file 


assignment statements 


to indicate that the 
expression has been 
calculated and that 


the following code is 
only concerned with 
assignment to the 
variable, or its dope 
vector, which is the 
subject cf the second 
file statement 


Indicates that 4 byte 
alignment is required 
in the code at this 
point 


Replaces the 
ALLOCATE 


keyword 


Indicates the library 


calling sequence for 
VDA or controlled 
storage 

Provides Space to 
allow insertion of 
argument conversion 
triple 


Replaces keyword ARLA 


Marker used by phases 
GK and GP te indicate 
he start of a func- 
tion argument 


Replaces the PL/I '*' 
used to specify an 
array cross section 


Marker which precedes 


an assignment state- 
ment 
Precedes an assign- 


rent statement with 
the BY NAME option 


Marker which precedes 
a dictionary entry 
containing the attri- 
butes which have been 
specified on an OPEN 
or CLOSE statement 


AUTOMATIC 


BACKWARDS 


BASED 


BEGIN' 


BGPE 


BGNP 


BGNP' 


BIT ATTRIBUTE 


BIT CONST 


BINARY 


BLBS 


BLBS' 


BUFFERED 


BUILTIN 


BUY 


BUY 
ASSIGNMENT 


PS 


PS 


PS 


Replaces the keyword 
AUTOMATIC 

Bit string format 
item 

Replaces keyword 


BACKWARDS BEGIN 


Replaces keyword 
BASED 
Triple which termi- 


nates the BEGIN block 
triples 


Indicates the end of 
the complete prologue 
for a begin block 


Indicates the start 
of code for a BEGIN 
block with no prolo- 
gue 


Indicates the end of 
code for a begin 
block with no prolo- 
gue 


Replaces the keyword 
BIT 
Marker preceding a 


BIT string constant 
Replaces the keyword 
BINARY 


Indicates the start 
of the prologue for a 
BEGIN block 


the end of 
for a 


Indicates 
the prologue 
BEGIN block 


Replaces keyword BUF- 
FERED 


Replaces 
BUILTIN 


the keyword 


Code byte or triple 
which indicates that 
a temporary variable 
is required 


Triple which indi- 
cates assignment to a 


temporary variable, 
and which implies 
that the workspace 
for the temporary 
variable must be 


Obtained before the 


assignment 


BUYB 


BUY CHAMELEON 


BUYS 


BY 


BYE 


BY NAME 


CALL 


CALL' 


| CELL 
| 


CHAR 
ATTRIBUTE 


CHAR CONSTANT 


CHECK 


CHSM 
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Triple or code byte 
which indicates that 
a scalar temporary is 
required for an 
aggregate argument to 
a generic scalar 
built in function 


Marker which indi- 
cates that workspace 
is required for a 


terporary variable of 
chameleon data type 
i.e. the data type 
is taken from the 
expression assigned 
to the variable 


Code byte or triple 
which indicates that 
a temporary variakle 
is required, and that 
initialization code 
exists between this 
triple and the BUY 
triple 


Replaces 
BY 


the keyword 


Triple which indi- 
cates the end of a BY 
expression 


Replaces the 
BY NAME 


keyword 


Complex decimal for- 


mat item 

Triple which  indi- 
cates the end of a C 
format item 


CALL statement marker 


Triple internal to 
phase IA which marks 
the end of a CALL 
statement 

Replaces the keyword 
CELL 


Replaces the keyword 
CHARACTER 


Marker preceding a 
character string con- 
Stant 


Replaces the 
CHECK 


keyword 


A Special offset 
marker. Used only in 
absolute code to 
indicate that the 
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CL 


CLN1 


CLN2 


CLOSE 


CN 


CNVC1,--4 


COL 
COMPLEX 
COMPILER 


ASSIGN 


COMPILER 
FUNCTION 


COMPILER 
FUNCTION' 


COMPILER 
FUNCTION CALL 


COMPILER 


FUNCTION CALL' 


COMPILER 


FUNCTION COMMA 
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R,T,PS 


R,T,PS 


PS 


T 


T 


offset 
changing 


may require 


Compiler label marker 


Compiler label number 
triple, referred to 
once only in the cur- 
rent statement 


Compiler label number 
triple, referred to 
at any point 


Replaces the keyword 
CLOSE 

Compiler statement 
number. Can precede 
compiler inserted 
Statements 

Convert compiler 
functions 

1=Drop all registers 
2-Drop target reg- 
ister 

3=Drop source reg- 
ister 

4=Do not drop reg- 
ister 

Replaces the keyword 
COLUMN 

Replaces the keyword 
COMPLEX 


Code byte or triple 
indicating assignment 


Code byte or triple 
used to indicate the 
Start of a compiler 
function call argu- 
ment list 


Triple indicating the 


end of a compiler 
function argument 
list 


Code byte or triple 
used to indicate the 
Start of a compiler 
function call  argu- 
ment list 


Triple indicating the 
end of a compiler 
function call argu- 
ment list 


Triple used to indi- 
cate the argument of 
compiler function, or 
Pseudo-Variable 


[DATA LIST LO 


COMPILER 


T 


PSEUDO-VARIABLE" 


COMPILER 


T 


PSEUDO-VARIABLE 


CONDITION 


CONTROLLED 


CONTROL 
VARIABLE 


CONVERSION 


COPY 


CONTROL 
VARIABLE' 


DATA 


DATA' 


DCF2 


DECIMAL 


DECLARE 


DEFINED 


DEFINED 
SUBSCRIPT 


DELAY 


DELETE 


PS 


R 


Triple indicating the 
end of a compiler 
pseudo-variable 
argument list 


Code byte or triple 
used to indicate the 
Start of a compiler 
pseudo-variable 
argument list 


Replaces the keyword 
CONDITION 
Replaces the keyword 


CONTROLLED 


Marker which indi- 
cates the control 
variable of a DO loop 


Replaces the keyword 
CONVERSION 
Replaces the keyword 


COPY 


Triple which indi- 
cates the end of a 


control variable 
expression 
Replaces the keywcrd 


DATA 


Triple indicating the 
end of a data direct- 
ed I/O list 


Replaces the keyword 
DO in an iterative 
Clause in a data list 


Causes 
'ERROR STOP' 


output of 
and the 


four bytes following 
in the pseudo-code 
item 

Replaces the keyword 
DECIMAL 

Replaces the keyword 
DECLARE 


Replaces the 
DEFINED 


keyword 


Marker which precedes 


the parenthesized 
iSUB sukscript list 
of a defined array 
Replaces the keyword 
DELAY 

Replaces the keyword 
DELETE 


DICTIONARY 
REFERENCE 


DIRECT 


DISPLAY 


DO 


DO EQUALS 


DROB 


DROP 


DROP 


DRPL 


EDIT 


EDIT' 


EIO 


ELSE 


END 


T 


PS 


PS 


PS 


Marker indicating 


that the following 
two bytes contain a 
symbolic dictionary 
reference 

Replaces the keyword 
DIRECT 

Replaces the keyword 
DISPLAY 

Replaces the keyword 
DO, in a non- 


iterative DO group 


Marker which replaces 
the PL/I‘'=" in the 
iterative DO 
statement (DO I= ) 


Indicates to the reg- 
ister allocation 
phases that a kase 
register used for 
addressing a con- 
trolled variable 
should be dropped 


Triple used in optim- 


ization indicating 
the drop of an index 
register 


Indicates that a sym- 
bolic or assigned 
register in the oper- 
and field of the 
instruction is no 
longer required 


Indicates the end of 
the use of a list of 
symbolic registers 
which have appeared 
in an USSL item 


Floating decimal for- 
mat item 
Replaces the keyword 
EDIT 


Triple indicating the 
end of an edit 
directed I/O list 


Code byte or triple 
which indicates the 
end of an 1/0 state- 
ment 
Replaces the keyword 
ELSE 


Replaces the END key- 
word at the end of a 


END BLOCK 


END DC 


ENDFILE 


END ITDO 


END LIST MARK 


END PROG 


END PROGRAM2 


ENTRY 


EPRM 


EPRM' 


EQU 


EQU' 


ERROR 


ERROR 


Appendix D: 


K,T 


R,T,PS 


T,PS 


PS 


PS 


PS 


BEGIN or PROCEDURE 


block 


Indicates the end cf 
a text block 


Replaces the END key- 
word at the end of a 
non-iterative DO 
group 
Replaces the keyword 
ENDFILE 


Replaces the END key- 
word at the end of an 
iterative DO loop 


Marker used by phases 
GK and GF to indicate 
the end of a function 
argument list 


Marks the enc of pro- 
gram 


Triple which marks 
the end of the second 
file text i.e. pro- 
logue initialization 
text, which is placed 
after the source pro- 
gram text 


Replaces the keyword 
ENTRY 

Indicates the start 
of an external 
library calling 
Sequence. (Appendix 
D10) 

Indicates the end of 
an external library 


calling sequence 


Indicates that the 
two byte operand 
field contains a 
label. The label is 
considered to be 
attached to the fol- 
lowing pseudo-code 
item 


As for ECU, but indi- 
cates that control 
may enter from a dif- 
ferent statement. 
Replaces the keyword 
ERROR 


Code byte or triple 
which marks the posi- 
tion of an erroneous 
source Statement 
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ERROR 


EVENT 


EXCLUSIVE 


EXTERNAL 


Ff 


F COMMA 


FILE 
FILE' 
FINISH 
FIXED 


FIX BINARY 
IMAGINARY 


FIX BINARY 
REAL 


FIX DECIMAL 
IMAGINARY 


FIX DECIMAL 
REAL 


FIXED 
OVERFLOW 


FLOAT 


FLOAT BINARY 
IMAGINARY 


400 


PS 


R 


which has peen deiet- 
ed 


Indicates the 
sence of a 
program error 


pre- 
source 


Replaces the keyword 
EVENT 

Replaces keyword 
EXCLUSIVE 

Replaces the keyword 
EXIT 


Replaces the 
EXTERNAL 


keyword 


Fixed decimal format 
item 


Triple which  indi- 
cates the end of an F 
format item 


Triple used to indi- 
cate the arguments of 
a function or pseudo 
variable 


Replaces the 
FILE 


keyword 
Triple indicating the 
end of a file list 


Replaces keyword FIN- 
ISH 


Replaces 
FIXED 


the keyword 


Marker which precedes 
a fixed binary  imaa- 
inary constant 


Marker which precedes 
a fixed binary real 
constant 


Marker which precedes 
a fixed decimal imag- 
inary constant 


Marker which precedes 
a fixed decimal real 
constant. 


Replaces keywords 
FIXED OVERFLOW 


Replaces 
FLOAT 


the keyword 


Marker which precedes 
a float binary imag- 
inary constant 


FLOAT EINAKY kR 
REAL 


FLOAT DECIMAL R 
IMAGINARY 


FLOAT DECIMAL R 
REAL 


FORMAT R,T 


FORMAT" T 


FORMAT LIST R,T 


FORMAT LISTS T 


FREE R,T,PS 
FROM R,T 
FUNCTION T 
FUNCTICN R 
GENERIC R 
GET R,T 
GOOE R,T 
GOLN T 
GOTO R,T 
IDENT R,T 
IF R,T 
IF' T 


Marker which precedes 
a float binary real 
constant 


Marker which precedes 
a float decimal imag- 
inary constant 


Marker which precedes 


a float decimal real 
constant 

Replaces the keyword 
FORMAT 

Triple which marks 
the end of a remote 


format statement 


Precedes a format 


list 


Triple indicating the 
end of a tormat list 


Replaces 
FREE 


the keyword 


Replaces the keyword 
FRCM 


Code kyte or triple 
indicating the start 
of a function argu- 
ment list 


Marker which precedes 


the parenthesized 
argument list (if 
present) of an entry 
name in a function 
reference or CALL 
Statement 

Replaces the keyword 
GENERIC 

Replaces the keyword 
GET 


GOTO out of block 


Statement marker 


indicates a branch to 
a label numoer 


GOTO in block 
rent marker 


State- 


Replaces the keyword 
IDENT 

Replaces the keyword 
IF 

Triple which termi- 
nates an IF expres- 
sion 


IGN 2..8 


IGNORE 


IGNORE 


IN 


INITIAL 


INITIAL LABEL 


INITVAR 


INPUT 


INTEGER 


INTERNAL 
INTO 


IPRM 
ITDO 
ITDO' 


JMP 


KEY 


PS 


R/T 


R 


Ignore markers used 
by Final Assembly 
when code has been 
made redundant. The 
finai digit indicates 
length to be ignored. 


Replaces the keyword 
IGNORE 


Pseudo-code item 
which indicates that 
the number of bytes 
appearing in the 
length count must be 
ignored 


Replaces the keyword 
IN 
Replaces the keyword 
INITIAL 


Marker which precedes 
elements of arrays of 
labelvariables which 
are initialized by 
being attached to 
Statements 


Replaces the keyword 
INITIAL(iteration 
factors) 


Replaces keyword 


INPUT 


Marker which precedes 
an internal binary 
integer constant 


Replaces the keyword 
INTERNAL 


Replaces the keyword 
INTO 


Indicates the end of 
an internal library 
calling sequence 


Replaces the keyword 
DO in an iterative DO 
loop 


Triple which termi- 
nates an iterative DO 
expression 


Triple indicate the 
presence of  pseudo- 
code. The number of 
bytes of pseudo-code 
is specified in the 
first operand 


Replaces the 
KEY 


keyword 


KEYED 


KEYFROM 


KEYTO 


LABEL 


LEFT 


LIKE 


LINE 


LINESIZE 


LIST 


LIST' 


LIST MARR 


LiTERAL 
CONSTANT 


LOCATE 


MAIN 


MULTIPLE 


ASSIGN 


NAME 


NDX 


NOCHECK 


NO SNAP 
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R Replaces keywcrd 
KEYED 

R,T Replaces the keyword 
KEYFROM 

R,T Replaces the keyword 
KEYTO 

R Replaces the  keywcrd 
LABEL 

T Triple indicating a 
temporary result for 
a pseudo-variable 

R Replaces the keyword 
LIKE 

R,T Replaces the keyword 
LINE 

R,T Replaces the keyword 
LINESIZE 

R,T Replaces the keyword 
LIST 

T Triple indicating the 
end of a list 
directed I/O list 

T Marker used by Phases 
GK and GP to indicace 
the start of function 
argument list 

R,T indicates that the 
following two bytes 
contain a fixed 
binary constant 

R,T Replaces the keyword 
LOCATE 

R Replaces keyword MAIN 

RT Marker indicating 
multiple assignment 
(Replaces PL/I',') 

R Replaces the keyword 
NAME in the context 
of ON NAME 

T Triple indicating 
indexing during 
optimization of DO 
loops 

R Replaces the keyword 
NEW PAGE 

R Replaces the keyword 
NOCHECK 

R,T Replaces the keyword 
NOSNAP 

Internal Formats of Text 401 


NOSNAP' 


NULL 


NULL- FUNCTION 


OFFSET 


OPEN 


OFS 


ON 


OPTIONS 


ON RECORD 


OSM1 


OSM2 


OSM3 


OUTPUT 


OVERFLOW 


PAGE 


PAGESIZE 


PASS 


PCBS 
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PS 


PS 


AR,T 


Triple which indi- 
cates the end of a 
NOSNAP list 


Null statement marker 


Enakles TMPD's to be 
passed in text by 
phases LB and LG 


before the evaluation 
phase LS 


Replaces the keyword 
OFFSET 

Replaces the keyword 
OPEN 

Triple indicating 


offset used in optim- 
ization of DO loops 


Replaces the 
ON 


keyword 


Replaces the keyword 
OPTICNS 


Replaces the keyword 
RECORD in the context 
ON RECORD 


Indicates that the 
two byte operand 
field contains an 
index register 

Indicates that the 
two byte operand 


field contains a let- 
eral offset 


Indicates the pre- 
sence of a literal 
offset and an index 


register 


Replaces keyword OUT- 
PUT 


Replaces 
OVERFLOW 


keyword 


Picture format item 
Triple which  indi- 
cates the end of a P 
format item 


Picture format item 


Replaces 
PAGESIZE 


the keyword 


POINTER Assignment 


Indicates the end of 


PCC 


PEMT 


PICTURE 


PINS 


HJ 
IS 
iJ 
e 


PLBS' 


| POINTER 
| 


PRECISICN1 


PRECISICN2 


PRINT 


PRIORITY 


PSEUDO- 
VARIABLE 


PSEUDO- 
VARIABLE 


PSEUDO- 
VARIABLE" 


PSLD 


PS 


PS 


PS 


the complete prologue 
for a prccedure Gleck 


Follows a PROC cr 
PEGIN marker. Used 
to carry the prefix 
change cyte for tne 
olock. 


PICTURE format 


Replaces the keyword 
PICTURE 
Indicates the prclo- 


gue insertion point 


Indicates the start 
of the prologue for a 
crocedure block which 
is common to all 
entry points 


Indicates the end of 
the prologue of a 
procedure klock which 
is corron to all 
entry points 


Replaces the 
POINTER 


keyword 


Indicates a precision 
which has been writ- 


ten in the source 
program as  '(10)', 
which ray be either 


fixed or float 


Indicates a precision 


which has been writ- 
ten in the source 
program ds. '(5,2)' 


which implies fixed 


Replaces 
PRINT 


keyword 


Replaces the keywora 
PRIORITY 


Marker which precedes 
the parenthesized 
argument list to a 
pseudo-variable 


Code byte or triple 
indicating the start 
of a pseudo-variabie 
argument list 


Triple indicating the 


end of a pseudo- 
variable argurent 
list 

indicates a pseudo- 


code instruction for 


PROC 


PROC' 


PUT 


READ 


REAL 


RECORD 


RECURSIVE 


REENTRANT 


REPLY 


RETURN 


REVERT 


REWRITE 


RPL 


RPL' 


SECONDARY 


PS 


use by the final 
assembly listing 
phase 

Replaces the keyword 
PROCEDURE 

Triple which termi- 


nates the procedure 
block triples 
Replaces the keyword 
PUT 

Remote format state- 
ment marker 


Replaces the keyword 
READ 

Replaces the keyword 
REAL 

Replaces the keyword 
RECORD 

Replaces the keyword 
RECURSIVE 

Replaces the keyword 
REENTRANT 

Replaces the keyword 
REPLY 

Replaces statement 
marker 

Replaces the keyword 
REVERT 

Replaces the keyword 
REWRITE 


code byte or triple 
indicating the start 


of a format list 
replication factor 
expression 


Triple indicating the 


end cf a format list 
replication factor 
expression 

Indication of an 
addressing vector for 
use ky the register 
allocator when the 
number of symbolic 
registers in use 


exceeds the amount of 
work space which has 
been allocated 


Replaces keyword SEC- 
ONDARY 


SECOND LEVEL 
MARKER 


SELL 


SET 

SETS 
SEQUENTIAL 
SIGNAL 
SIZE 

SKIP 


SL 


SN2 


SN3 


SNAP! 


STATIC 


STERLING 
DECIMAL REAL 


STOP 
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R 


R,T 


E, YT 


R,T,PS 


k,T,PS 


R,T,PS 


PS 


H 


Internal Formats of Text 


2 code byte which 
immediately  precedes 
all code bytes 
appearing in the sec- 
ond level table 


Code byte or triple 
which indicates thet 
a temporary variable 
is no longer required 


Replaces the keyword 
SET 

Replaces the keyword 
SETS 

Replaces the keyword 
SEQUENTIAL 

Replaces the keyword 
SIGNAL 

Replaces the keyword 
SIZE 


Replaces the 
SKIP 


keyword 


Staterent label mark- 
er. Precedes all 
labelled statements 


Statement number 
marker.  Precedes all 
unlabelled statements 


Marker which precedes 
a second file state- 
rent (See Appendix 
D.8) 


Indicates 
of a 

Statement 
concerned 
tializing 


the start 
second file 

which is 

with ini- 

array, or 
structure, or string 
dope vectors. Simi- 
lar to SN2 (Appendix 
D.8) except that 
there is no associat- 
ed entry 


which indi- 
end of a 


Triple 
cates the 


snap list 


Replaces 
STATIC 


the keyword 


Marker which precedes 
à Sterling decimal 
constant 


Replaces the 
STOP 


keyword 
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STREAM 


STRING 


STRING' 


STRINGRANGE 


SUB 


SUBSCRIPT 


SUBSCRIPT' 


SUBSCRIPT- 
RANGE 
SYSTEM 


SYSTEM' 


TASK 


THEN 


TITLE 


TMPD 


TO 


404 


T 


Replaces keyword 
STREAM 
Replaces the keyword 


STRING 


Triple indicating the 
end of a string list 


used with list 
directed I/O 

Replaces the keyword 
STRINGRANGE 

Replaces the keyword 
SUB used in iSUB 
DEFINING marker 


preceding a BIT 


Marker which precedes 
the parenthesized 
subscript list of an 
array 


Triple indicating the 


end of a subscript 
list 

Replaces keyword SUB- 
SCRIPTRANGE 

Replaces the keyword 
SYSTEM 

Triple which indi- 
cates the end of a 
system list 

Replaces the keyword 
TASK 

Replaces the keyword 
THEN 

Replaces the keyword 
TITLE 

Trivle indicating a 
temporary expressicn 
result 

Marker replacing TO 
in the iterative DO 
Statement 


TO' 


TRANSMIT 


UNBUFFERED 


UNDEFINEDFILE 


UNDERFLOW 


UNLOCK 


UPDATE 


VARYING 


WHILE 


WHILz' 


WRITE 


x 


ZERODIVIDE 


5i 


PS 


nj 
c 


Triple which indi- 
cates the end of a IO 
expression 


Replaces the keyword 
TRANSMIT 


Replaces the keyword 
UNBUFFERED 

Replaces the keyword 
UNDEFINEDFILE 
Replaces keyword 
UNDERFLOW 


Replaces the keyword 
UNLOCK 
Replaces keyword 
UPDATE 


Replaces the keyword 
USES 


Indicates the 
sence of an 
register 


pre- 
assigned 


Indicates a list of 
syrbolic registers 
which need not be 
Saved on branch and 
branch and link 
instructions 


Replaces 
VARYING 


the keyword 


Replaces the 
WHILE 


keyword 


indi- 
of a 


Triple which 
cates the end 
WHILE expression 


Replaces the 
WRITE 


keyword 


Spacing format item 


Replaces 
ZERODIVIDE 


the keywcrd 


The (F) Compiler requires main storage 


for the following purposes 
Compiler processing phases 
Print buffers 
Compiler control routines 
Dictionary area 
Text area 
Input/Output buffers 
Input/Output routines (BSAM) 
The main storage required by each pnase 
of the compiler need be contiguous only for 


each control section. 


minimum of 


Storage available to the compiler. The 
SIZE option, interpreted at invocaticn 
time, provides the value used to determine 
the block size. ^ table contained in Phase 
AB is searched, using the SIZE option as an 
argument. When the correct entry is found, 
the block size is extracted. 


The first table shows the relationship 
between tne compiler requirements and the 
text and dictionary block sizes. The sec- 
ond table details the storage allocation in 
each environment. 


Hn —— A E 


During the read-in phases a EE a pro re 2 
two dictionary blocks and two text blocks | Environment |Dictionary/Text | Compiler | 
are available in storage simultaneously. | | Elock Size |Reguirements | 

}----------- }--------------- }------------- 

During the rest of the compilation four | A | 1k | 44K - 56K | 
dictionary blocks and four text blocks are | E | 2K | 56K - 72K | 
available in storage simultaneously. | € | 4K | 72K - 132K | 

| D | 8K | 132K - 168K | 

The dictionary and text block size is | in | 16K | 168K l 
chosen according to the amount of main L----------- dr di no J 
OO e e a a ak Ee es ue eM ae ey re oe EE a O c re A 1 
| | DURING READ-IN PHASE | AFTER READ-IN PHASE | 
| [--------~--------------------- }~-----------~-----~------------ { 
| Storage Allocation | ENVIRONMENT | ENVIRONMENT | 
| | | | | | | | | | | | 
| | A TB jc | | E | A | EF | C| P | E | 
po ann ł----- ł----- ł----- ł----- ł------ ł----- ł----- Än ł------ ł------ 1 
| OS Dynamic Storage | | | | | | | | | | | 
| | | | | | | | | | | 
| TIOT | 228| 228] 228] 228] 228| 228{ 228] 228] 228| 228 | 
| SPIE | 32| 32| 32| 32| 32| 32 | 32| 321 321 32] 
| LOAD | 40 | 40 | 4Q| 40] 40] 40] 40] 40] 401 40] 

l | | | | | | | | | | | 
| OS Temporary Storage | | | | | | | | | | | 
| | | l | | | | | | | | 
| End of Volume { 800{ Gool 6800] 800] 800] 800; 500] 800| 800 | 800 | 
| Data Management | 4894| 4894] 4894| 4894] 4894| 4894| 4894| 4894] 4394] uUCEIU| 
| Compiler Control |12266|12266|12266|12266] 12266/|12266/|12266|12266| 12266| 12266] 
| Phase Area [16384 |16384|16384|/16384] 16384|12288[12288|12288| 12288/ 12288] 
| Text Area | 2048] 8192[16384[32768| 65536| 4096{ 8192/|16384| 32768[| 65536| 
| Dictionary Area | 2048] 8192[16384]32768]| 65536] 4096| 8192|[16384| 32768]| 65536] 
| Scratch Storage | 4096] 4096| 4096| 4096] 4096| 4096| 4096| 4096] 4096| 4096] 
| I/O Buffers { 1538] 1538{ 1538]| 1538| 1538{ 1538/| 1538] 1538{ 1538| 1538] 
A e li ———— M— — ——— A Rae 
| TOTALS Re le nen 
ka ee Mwe ee d o ru sitet ee ee AA SED AO A, AP 
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Initially, four text and four dictionary 
blocks are allocated to the compiler (two 
each are allocated when only 44K bytes of 
storage are available to the compiler. 
This is then expanded to four of each at 
the end of the read-in phase). If the text 
and/or dictionary expands to ‘fill these 


406 


blocks, more main storage is allocated as 
blocks. This process continues untii the 
main storage available to the compiler has 
been used). If still more rain storage is 
required, the spill file  (SYSUT1) is 
opened, and blocks are written out. 


The communications region is an area 
Specified by the control routines, and used 
to communicate necessary information 


between the various phases of the compiler. 
The communications region is resident in 
the first dictionary block throughout the 
compilation. 


Entry to the various compiler control 
routines is via a transfer vector. Details 
Of the transfer vector and the organization 
of the communications region appear in this 
Appendix. 


The use of the communications region 
during compile-time processing is 
described in Appendix J. 


Note: 


Se A we PP o e e n, 


Hex. 
Offset Name Description 
8 ZUPL Print a line 
E ZURD Read a card 
10 ZUGC Get scratch storage 
14 ZUTXTC Get text klock 
18 ZURC Release scratch storage 
1c 
20 ZABORT Dump and go to error 
message routines 
24 ZLOADW Load and return to cal- 
ler 
28 ZDICAB Make dictionary entry. 
Absolute address 
returned 
2C ZDICRF Make dictionary entry. 
Dictionary reference 
returned 
30 ZUERR Make error message entry 


34 


38 


3C 


40 


44 


48 


Ye 


50 


54 


58 
5C 


60 


64 


68 


70 
74 
78 
80 
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ZDRFAB 


ZLOADA 


REQEST 


RELESE 


RLSCTL 


ZDUMP 


ZIXTRÈ 


ZCHAIN 
ZALTER 


ZDABRF 


ZNALRF 


ZNALDP 


ZEND 
ZULF 
ZUSP 
ZUBW 


RLSCTLX 


Convert dictionary ref- 
erence té absolute 
address 

Load “with overlay and 
return to caller 

Give a list of phase 
names required or not 


wanted for this compila- 
tion 


Release all named phases 


Release all named phases 
and pass to next phase 


Dump specified core and 
continue 


Convert absclute address 
to text reference 


Convert text reference 
to absolute address 


Find next block in chain 
Change text block status 


Convert aksclute address 
to dictionary reference 


Not aligned dictionary 
entry. Reference 
returned 

Not aligned dictionary 
entry. Aksolute address 
returned l 


Terrinate job 

Write on load file 

Write on punch 

Write on backing store 
Release all named phases 
and hand ccntrol to the 


next phase, after having 
loaded it with overlay 
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COMMUNICATIONS REGION 


408 


These tables give the following information for each location of the cormuni- 
cations region: name of location; offset (i.e., relative address); use (i.e., 
stages of compilation during which the location is in use); and a description of 
the contents. Certain. locations are used in one capacity during part of the 
compilation, and then re-used in a different capacity during another part of the 
compilation. In these cases, one location will have two table entries: details of 
alternative usage appear in the columns headed Narez, Uses, etc. 


eTable 1. Communications Region 


proce quce SSS qom c quee 
| Name {Offset (Dec.) 


SAVE1 |SAVEO+4 


SAVE2 |SAVEO+8 ETC. 


| 

| 
SAVE15 |SAVEO+60 
ZTV | 64 
ZTRAN1 | 68 
ZTRAN2 |ZTRAN1+4 
ZNXID | 76 
ZERRD | 80 


ZERRS  |ZERRD*ü 
ZERRW  |ZERRD*8 
ZERRC  |ZERRD*12 
ZDNXT  |ZERRD*16 
ZSNXT | ZDNXT+4 
ZWNXT | ZDNXT+8 
ZCNXT | ZDNXT+12 


| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| ZMYNAM | 112 
| | 

| DICITP | 116 
| ZCNCHR | 118 
| | 

| ZPROCH | 120 
| ZSTAT | 124 
| PARL | 122 
| PAR2  |PAR1+4 ETC. 
| . |. 

| | 

| . |. 

| . l. 

| . |. 

| PARS | PAR1+28 
| CORLFT | 160 
| LKNAME | 164 
| | 

| ZOBSAD | 172 
| TERMSW | 176 
| | 

| OFDNAM | 178 
| SPLNAM | 180 
| | 

| ZOBNUM | 182 
| SCNOP | 184 
| SCCNF | 185 
| ZDROLF | 186 
| AREA | 187 
| | 

| ZM91 | 188 
| PERRSW | 189 
| BERSW | 190 
| IOERSW | 191 
| ZPAGE | 192 
| ZLINE | 194 
| ZOPT | 196 
| | 

| PARMLEN| 197 
| | 

| MAXFON | 198 
| | 

| ZDICTSP | 200 
bo es H a A A a ee os vs 


ALL 
ALL 
PHASE 


ALL 
ALL 


ALL 
ALL 


ALL 
ALL 
ALL 
ALL 
ALL 


ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 


ALL 


PHASES 
PHASES 
PHASES 


PHASES 
PHASES 
PHASES 
PHASES 
PHASES 
PHASES 
PHASES 
PHASES 
PHASES 
PHASES 
PHASES 
PHASES 
PHASES 
PHASES 


PHASES 
PHASES 


PHASES 
PHASES 
PHASES 
PHASES 


PHASES 
PHASES 
VE 


PHASES 
PHASES 


PHASES 
PHASES 


PHASES 
PHASES 
PHASES 
PHASES 
PHASES 


PHASES 
PHASES 
PHASES 
PHASES 
PHASES 
PHASES 
PHASES 


PHASES 


PHASES 


PHASES 


Register 


Register save area 

Control phase kase 

External to internal translate table 
Internal to external translate table 
Next available dictionary location 


First locations of error chains 


Current ends of error chains 


Name of last phase entered 


Source column containing control 


character 


Chain of created procedures 
Current statement number 


Parameter 
Parameter 


Parameter 
Amount of 


Member name of module produced by 
compilation 

Address of overflow block 
Compilation terminating switch 


Name of phase in control when 
Spill file is opened 

Overflow block number 

Phase directory scan switch 

On if in second half of compiler 
Overlay switch 


Code word 


(phase AD) 


(used for 


Print error switcn 
*process error byte 


I/O error 
Number of 
Number of 
Code word 
phases 
Length of 
card 
Number of 
block 


—————Á————————Á———Á—— e gi 7 


Description | 


Register save aree 
Register save area 


ave area 


word 1 
word 2 


word 8 
core left for compilation 


for dummy routines 


Model 91 systems) 


switch 

lines in page 

characters ina line 

of loading of optimwizine 


options field in * - process| 


offset slots in a dictionary] 


| 
Useful dictionary block size | 
J 


ee 
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Table 1. Communications Region (cont'd) 


e mie EE EE qoem ES 
Name [offset (Dec.) 


l 
l 
| 
i 
i 
l 
! 
1 
| 
t 
l 
i 
! 
I 
l 
1 
1 
{ 
1 
1 
i 
l 
1 
1 
1 
l 
l 
Li 
! 
l 
t 
( 
t 
i 
1 
1 
1 
1 
l 
= 


T 
| | Use | Description | 
}-------- $-------------- $---------------- ł--------------------------------------- 1 
| ZNXTOF | 204 | ALL PHASES | Offset of next dictionary entry | 
| FONOF | 208 | ALL PHASES | Offset of offset slots in dictionary | 
| | | | block | 
| FSTDRF | 212 | ALL PHASES | Dictionary reference of last dictionary 
| | | | entry | 
| ERCODE | 224 { ALL PHASES | Error message codes | 
| MCSIZE | 228 | ALL PHASES | M/CSIZE this run | 
| CCCODE | 232 | ALL PHASES | Control card requests | 
| HDR | 236 | ALL PHASES | Address of phase directory | 
| TLR | 240 | ALL PHASES | Timer last read [ 
| TRT | 244 | ALL PHASES | Total run time | 
| ARINT | 248 | ALL PHASES | Arithmetic interrupt | 
| BR2 | 252 | ALL PHASES | Second base for control phase | 
| STARTX | 256 | ALL PHASES | Start of text | 
| DICTSZ | 260 { ALL PHASES | Dictionary block size | 
| TXTSZ | 264 | ALL PHASES | Space available in text block | 
{ RDSIZE | 268 | ALL PHASES | SIZE of read area | 
| INCOD | 272 | ALL PHASES | Interrupt code | 
| ARMASK | 273 | ALL PHASES | Arithmetic error mask | 
| LOCK | 274 | ALL PHASES | Dictionary lock slot | 
| ZNXTLC | 276 | ALL PHASES | End of current text | 
| ZSHIFT | 280 | ALL PHASES | Number of kits in dictionary reference| 
| | | | offset | 
| ZMASK | 284 | ALL PHASES | Mask to remove block numbers | 
| ZMASK1 |ZMASK + 2 | ALL PHASES | Mask to remove ofiset | 
| ZSOR | 288 | ALL PHASES | Input record source | 
| ZMAG | 290 | ALL PHASES | Input record margin | 
| ZCOMM | 304 | ALL PHASES | | 
Wu D. p —— oros ——Á— R$ PA eee ii E LE J 
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eTable 2. Communications Region 


porem qoem queue one eee Lore mecum. qe mm qose eme qusc Dem TS 1 
| | Dec. | Use | | | Use; | | 
| Name | Offset |----------  17--------- 4 Description [Namea [------ T------ | bescriptiong | 
| | | Start | End | | [Start | End | | 
—-----ł--------4----------ł----------ł-------------- ł------ł------4------ł--------------4 
| ZCALLC | ZCOMM+ O|Read in [BCD to |Start of CALL | | | | | 
| | | |Dict. Ref. [chain | | | | | 
| ZLABTB | + 4|Read in {Initial [Start of label] | | | | 
| | | | chain | | | | | 
| | ZATTID | +8 | | {Pointer to |ZPCOP | | | | 
LI | | | attribute | | | | | 
LI | | | |tidy-up area | | | | | 
| ZALLCH | *12|Read in [ALLOCATE +|Start of | | | | | 
| | | |Attribute |ALLOCATE chain| | | | | 
| | ZFLAG1| +16|Read in [Dictionary|Flag bytes, | | | | | 
| | ZFLAG2| +17| | jmainly used | | | | | 
| | ZFLAG3| +18 | | |for optional | | | | | 
| | ZFLAGU | +19 | [phase marking | | | | | 
| | ZFLAG5| +20] | | (See Table 3 [ZSYSOT|Pseudo|vseudo|Dict. kef. l 
LI | | | [of this appen-| [code |code |SYSOUT | 
LI | | | | dia) | | | | | 
| | UNUSED | *21| | | | | | | | 
LI | TO| | | | | | | | 
LI | +23] | | | | | | | 
| | ZSCRCH| +24 |PD | PL {Address of | | | | | 
LI | | | [scratch core | | | | | 
LI | | | [kept across | | | | | 
LI | | | | phases | | | | | 
| | UNUSED | +25| | | | | | | | 
LI | TO| l | | | | | [ 
Li | *27| | | | | | | 
| ZHASH | +28]Dictionary|Dictionary]|Start of hash |ZINCL |PC. | End | INCLUDE card | 
| | | | | table | | | | pcinter | 
| | *32|Not used in first half |ZECTA3|Final |Assy. |Assigned | 
| | | | | l | | loffset table | 
| ZFATTB | +36|Dictionary|Declare [Start of fact-|ZLCONS|Strge |Allcc [Last constant | 
l l | lpass 2 lored attribute|ZEOCS | | lin STATIC. | 
| | l | | | | | [End cf STATIC | 
| ZCDIMC | +40|Dictionary|Pre- {Start constant | ZSMREG| Trans- |Pseudo|Current syr- | 
| | | |translator|dimension | |iator |code |kolic register | 
| 22FILE| +44 [Dictionary|End |Start of | | | | | 
| | | | |second file | | | | | 
| ZDLFST | +48|Dictionary|Storage | Defined | ZFSTEX|Strge |End [First external | 
| | [allocator |storage area | lalloc | | item | 
| ZDCBLD | *52|Dictionary|Dictionary|Dictionary [ZPRSIZ|Final |Assy. |Size of com- | 
| | | | [build area | | | Jedled program | 
| ZMPSTK | *56|Dictionary|Translator|Program map |ZSICSZ|Final |Assy. |STATIC | 
| | | {stack | | | | INTERNAL size | 
[ZUPIC | *60|Dictionary|Picture [Start of |ZSTALC|Final |Assy. |Storace loc- | 
| | | processor |picture chain | | | lation counter | 
| ZPROC1 | +64 |Dictionary|End [Start of entry] | | | | 
| | | |type 1 chain | | | | | 
| ZSTACH | +68|Dictionary|End [Start of STAT-| | | | | 
| | | | |IC chain (6) | | | | | 
| ZVDIMC | +74 |Dictionary|Translator|Start of vari-| | | | | 
| | | | lable dimension | | | | | 
| | | | | chain | | | | | 
| ZCONCH | *78|Dictionary|ALLOCATE |Start of con- | | | | | 
| | ‘| | {stants chain | | ! { 
| ZDEFCH | +80|Dictionary|Dictionary|Chain of | ZCITEM|Pre [End [Chain of CCN- | 
| | l | [defined items | | trans. | | TKCLLED items | 
| ZLIKCH| +82|Dictionary|Dictionary|Chain of LIKE |ZEQNAX|Pseudo|rnd Max. label l 
| | | | items | |code | [nunber | 
| ZPOLCH | +84 |Dictionary|Dictionary|Chain of POOL | | | { | 
| | | | | items | | | | | 
ARE AE A E E A da Luo rana URS AS Ec: isos Lonja J 
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Table 2. Communications Region (cont'd) 

pose pw ii e A atta om qose Tc EE E a E SÓ 1 
| | Dec. | Use | | | Usez | | 
| Name | Offset |[---------- T---------- ] Description |Nameg [------ T----- ] Descriptions | 
| | | Start | End | | [Start | End | | 
ļ------4--------}---------- ł---------- ł-------------- ł------ ł------ ł----- ł-------------- 1 
| | ZCOBOL | ZCOMM+86 | GB | JI |Head of COBOL | | | | | 
LI | | | [structure | | | | | 
LI Sen — |chain | | | | | 
| ZDCOM1 | ZCOMM+86 | Dictionary |Dictionary|Latest | | | | | 
| | M luos |dict. ref. | | | | | 
| ZDCOM2 | *90|Dictionary|Dictionary]Flags for dic-| | | | | 
| | | | |tionary build | | | | | 
| | | | |interface | | | | | 
| | | | | (8 bytes) | | | | | 
| |ZDSA |ZCOMM+9U] FA | UD |üead of STATIC] | | | | 
LI | | | |DSA chain | | | | | 
| | ZCPOFF | ZCOMM | PD | UA |Offser of | | | | i 
E | +100] | | first | | | | l 
B | | | |constants pool] | | | | 
LI | | | [within static | | | | | 
LI | | | | internal. | | | | | 
bla dlc ucc La TS A A kk ewes buscas kona A LA 4 


|NOTE: Bytes ZCOMM+60 to ZCOMM+332 are used internally within the Read-in phase and cannot 
| be assumed to be zerc at exit from that phase. 
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eTable 3. Communications Region. Bit Usage in ZFLAGS 


Rp EE A A por Ie to ero rant or trerrrroneen 
|| BYTE | OFFSET | BIT | BIT NAME | DESCRIPTION | 
|| NAME | | (HEX) | | bits are set on, on encountering:- | 
| }-------~ ł---------- ł------- +---------- }------------------------------------------------ 4 
|| ZFLAG1 | ZCOMM+16 | 80 | ZDEFFL | DEFINED attribute | 
LI | i 40 | ZAWAFL | ALLOCATE statement | 
LI | | 20 | ZSECFL | Second File statement l 
LI | | 10 | ZDIMFL | Dimension attribute | 
N | | 08 | ZCHKFL | CHECK/NOCHECK prefix | 
LI | | 04 | ZONFL | CN, SIGNAL or REVFRT statement i 
E | | 02 | ZSTRFL | Structure | 
LI | | 01 | ZDECFL | DECLARE statement | 
| | | l | | 
|| ZFLAG2 | +17 | 80 | ZLIKFL | LIke attribute | 
E | | 40 | ZINTST | STATIC INITIAL | 
E | | 20 | ZQPCFL | OPEN/CLOSE statement | 
E | | 10 | ZGTPFL | GET/PUT statement | 
LI | | 08 | ZGOTFL | GC TO statement | 
E | | 04 | ZTEPFL | TASK/EVENT/PRICRITY options, REPLY statement | 
E | | 02 | ZPICFL | PICTURE attrikute/format item l 
LI | | 01 | ZISBFL | iSUS defining | 
| | | | | 
|| ZFLAG3 | *18 | 80 | ZCONTG | PACKED(NONSTRING) attricute | 
LI | | 40 | ZSETFL | SETS attribute | 
E | | 20 | ZOSSFL | DELAY, DISPLAY, WAIT statement | 
LI | | 10 | ZARGFL | Argument list | 
E | | 08 | ZINLFL | INITIAL Label | 
E | | on | ZDIOFL | DATA directed I/O | 
LI | | 02 | ZRECIO | RECORD I/O | 
B | | 01 l ZINTAC | AUTO/CTL initialization | 
| | | | | | 
|| ZFLAG4 | +19 | 80 | ZFREE | FREE statement | 
E | | 40 | STM256 | More than 256 statements | 
LI | | 20 | FILEFL | Files present | 
E | [ 10 | | SPARE | 
LI | | 08 | ZPUTFL | PUT DATA | 
tI | | 04 | ZGETFL | GET DATA | 
LI | | 02 | ZPTRFL | Pointer Qualifier | 
LI | | 01 | ZRODFL | STATIC DSA Entry | 
| | | | | | 
|| ZFLAGS | +20 | 80 | ZFTASK | TASKZEVENT/PRIORITY option on a CALL | 
E | | | | statement | 
LI | | 40 | | spare | 
LI l | TO | | | 
LI | | 01 | | | 
L EE Lies este A SE ILE Lucus Be e Dro n a eee J 
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For full details of the system genera- 
tion process, see IBM System/360 Operating 


System: System Generation, Form C28-655u. 

During the system generation process, a 
control section named IEMAF is assembled 
(see Figure 13) containing a table consist- 
ing of five fixed-point values aligned on 
full-word boundaries, immediately followed 
by a bit string field that is twelve bytes 
in length. The five fixed-point values are 
related to the compiler options LINECNT, 
SIZE,  SORMGIN (start), SCRMGIN (end), and 
CONTROL COLUMN (PAGECTL), respectively. 
Eits 1 to 39, and 43 to 46 in the string 
are used to specify the default status of 
the options. Bits 47 to 91 in the string 
are used to specify if an option keyword is 
to be deleted or not. A "l" in the bit 
string means "yes" and a "O" means "no". 
The remaining bits in the string are spare 
bits not currently in use. Figure 14 shows 
the bit identification takle associated 
with the control section. 


dcc ORB Cc ECC M COE iL LE: 
| DC F'60' | 
| DC F'99999' | 
| DC F'2' | 
| Dc F'72' | 
| DC FO 
| MC 0 010.0 5209 20/009 0-0 a 
| DC B'J0 0000006 00000000! SWITCHES | 
| ae ee add ojo o een 
| o d Cou quU ibm. E 
| DC Brjo 0000000 Á 00000000* | SPARE. | 
| DC vi 0000000 00 ojoo ooo SWITCHES | 
[PM ms iS LD ————————SÀ——P-—————— —— M —— J 


erigure 13. The IEMAF Control Section 
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Lem A cS A A m erem TOT Trece eee T 1 
{Bit | Parameter | Bit | Parameter [Bit] Parameter [ 
O ț---ł------------------------- }---}------------------ 
| 1 | ATR {32 | OPLIST 165 | DELETE-NOXREF | 
| 2 | NOATR {33 | NCCPLIST [66 | DELETE=SOURCE | 
| 3 | BCD |34 | STMT |67 | DELETE=NOSOURCE | 
| 4 | EBCDIC [35 | NOSTMT [68 | DELETE-SOURCE2 | 
| 5 | CHAR60 [36 | MACRO [69 | DELETE=NOSOURCE2 | 
| 6 | CHARU8 [37 | NCMACRO [70 | DELETE-OPT | 
| 7 | DECK [38 | NEST [71 | DELETE-LINECNT | 
| 8 | NODECK [39 | NONEST {72 | DELETE-LINELNG | 
| 9 | EXTREF |40 | Not used [73 | DELETE=SIZE | 
{10 | NOEXTREF [41 | Not used {74 | DELETE=SORMGIN | 
[11 | FLAGW [42 | Not used (75 | DELETE-DUMP | 
|12 | FLAGE |43 | COMP |76 | DELETE-STMT | 
|13 | FLAGS [44 | NOCOMP [77 | DELETE-NOSTMT | 
|14 | LIST [45 | LIBRARY OPTION, REAL 178 | DELETE=MACRO | 
{15 | NOLIST |46 | LIBRARY OPTION, COMPLEX |79 | DELETE=NOMACKO | 
{16 | LOAD [47 | DELETE=ATR [80 | DELETE=COMP | 
{17 | NOLOAD {48 | DELETE-NOATR |81 | DELETE=NOCOMP | 
{18 | XREF [49 | DELETE=BCD |82 | Used for Model | 
[19 | NOXREF [50 | DELETE-EBCDIC | | 91 systems | 
[20 | SOURCE [51 | DELETE-CHAR60 |83 | Used for Model | 
{21 | NOSOURCE {52 | DELETE=CHAR48 | | 91 systems | 
{22 | SOURCE2 [53 | DELETE=DECK |84 | DELETE=PAGECTL | 
[23 | NOSOURCE2 (54 | DELETE-NODECK [85 | DELETE=MECDCK | 
|24 | OPT=0 [55 | PELETE-EXTREF (Ge | DELEZE-NOMACDK | 
{25 | OPT=1 [56 | DELETE-NOEXTREF 187 | DELETr=iXTDIC | 
[26 | Used for Model|57 | DELETE=FLAGW [88 | DELETE=NOEXTEIC | 
| | 91 systems [58 | DELETE=FLAGE [89 | DELETE-OPLIST | 
|27 | Used for Model|59 | DELETE-FLAGS [90 | DELETE=NCOPLIST | 
| | 91 systems [60 | TELETE=LIST |91 | DELETE=NEST | 
[28 | MACDCK [61 | DELETE-NOLIST |92 | DELETE=NONEST | 
[29 | NOMACDCK {62 | DELETE-LOAD |l- | Bits 93-96 | 
[30 | EXTDIC {63 | LELETE=NOLOAD i | not used | 
{31 | NOEXTDIC ¡64 | DELETE-XREF | | | 
cc —— Eo A A cus LI E EA O eae J 


eFigure 14, Bit Identification Table 
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APPENDIA H: CODE PRODUCED FOR PROLOGUES AND EPILOGUES 


i an i a a —————————L——————— ———————I———————————————————— 


The mechanism of dynamic storage manage- 
ment is described in the publication IBM 
System/360 Operating System PL/I Library 


Part of the code required to implement 
the storage management is generated as 
prologue and epilogue code ry the compiler. 
This Appendix contains annotated examples 
of prologues and epilogues for PROCEDURE, 
BEGIN, and ON blocks. 


PROLOGUES AND EPILCGUES 


Example in PL/I 


A:I: PROCEDURE(X,Y); 


DECLARE Y CONTROLLED; 


ON OVERFLOW C=0; 


AB: IJK: ENTRY(Y,Z) 


» 


SIZDSA 
STATIC 


* 
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RETURN (EXPRESSION) 


BC 15,16,(0,15) 
DC A11 (1) 


DC C'A" 

DC F' SIZE OF DSA' 

DC A(STATIC CONTROL 
SECTION) 


STM 14,11,12, (13) 
LR 10,15 


BAL 8,GETDSA(0,10) 
MVI SWITCH (13) ,X'X1' 


BC 15,COPRAM1 (0,10) 


BRANCH ROUND FOLLOWING CONSTANTS 
LENGTH OF ECD 
BCD OF ENTRY POINT 


ADDRESS OF STATIC {INTERNAL CONTROL SECTICN 
(ONLY COMPILED FOR EXTERNAL AND CN PROLOGUES) 
SAVE STANDARD REGISTERS IN SAVE AREA OF 
CALLER'S DSA 

SET UP FIRST PROLOGUE LASE 

CALL ROUTINE TO GET DSA 

INSERT RETURN (EXPRESSION) SWITCH 

(ONLY COMPILED IF THERE IS A RETURN (EXP) 
AND THE ENTRY LABELS HAVE DIFFERENT DATA 
ATTRIEUTES) 

BRANCH TO COPY OVER PARAMETERS 


— an am emm — am san mmm aw VA ARP ee oe gg ee ava anm av so Sa avan anan avan ten 


H 


ADPRIM 


LOOP 


iP 
COPRAM1 


* 
* 


COMMON 
* 


ak ak oke ak ak 


e A X 


* 


ak KK ak ake 


BC 
DC 
DC 
DC 
STM 


EALR 


LA 
SR 


ST 
LA 
BCT 
BCR 
MVI 


ST 
LA 
SR 
LH 
ST 
ST 


BAL 
BCR 


BALR 
LA 


ST 


15,10(0,15) 
AL1 (1) 

[Sade Ee 

A(A) 

14,11, 12C13) 


10,ADPRIM(0,15) 
8,IP(0,10) 
11,STATIC(0,10) 


0,SIZDSA(0,10) 
15,32, (0,11) 


14,15 

14,13 

0,7, (0,0) 

15,15 

14,0(0,11) 
14,ADVEC+4 (15,13) 
15,4(0,15) . 
0,LOOP(0,10) 
15,8 
SWITCH(13),x'x2' 
14,0(0,1) 
14,X(0,13) 
14,4(0,1) 
0,10(0,0) 

14,0 

14,0(0,14) 
14,Y(0,13) 
14,8(0,1) 
14,TARGET(0,13) 
10,A...A(0,11) 


8, COMMON (0,10) 
15,10 


96(13),x'80' 


10,0 
9, ADDAREA (0,13) 


9, ADVEC (0,13) 


THE FOLLOWING CODE 


BRANCH ROUND FOLLOWING CONSTANTS 
LENGTH OF BCD 

BCD OF ENTRY POINT 

FIRST PROLOGUE BASE ADDRESS 

SAVE STANDARD REGISTERS IN SAVE AREA OF 
CALLER'S DSA 

SET UP FIRST PROLOGUE EASE 

SET RETURN REGISTER 

SLT UP STATIC DATA POINTER (ONLY IN 
EXTERNAL PROCEDURES AND ON PRCLOGUES) 
GRO=SIZE OF DSA 

LOAD GR15 WITH ENTRY POINT OF IHESADA 


(UNLESS DSA IS IN STATIC, WHEN ENTRY POINT OF 


COMPILER'S ‘GET DSA' ROUTINE WILL BE LOADED) 
CALL ROUTINE TO GET A NEW DSA 

POINT GR14 AT NEW DSA 

SET LCOPING VALUE = 7 

CLEAR INDEXING REGISTER 

BUMP GR14 BY 4096 

STORE GR1i4 IN ADDRESSING VECTOR 

BUMP INDEA REGISTER 


BRANCH ON RETURN REGISTER 

INSERT RETURN (EXP) SWITCH 

PICK UP FIRST ARGUMENT ADDRESS AND 
STORE IN x IN DSA 

PICK UP SECOND ARGUMENT ADDRESS 


POINT GR14 AT PSEUDO-REGISTER OFFSET OF 
ARGUMENT AND PICK IT UP 

STORE OFFSET IN Y IN DSA 

PICK UP ADDRESS OF TAKGET FIELD 

AND STORE IN DSA 

LOAD GR10 FROM TRANSFER VECTOR SLOT 
FOR ENTRY POINT A IN STATIC. 

BRANCH AND LINK TO COMMON PROLOGUE 
BRANCH TO THE APPARENT ENTRY POINT 
FOR A 

SET DSA TASKING FLAG (ONLY COMPILED 
If TASKING IN COMPILATION) 

SET UP COMMON PROLOGUE BASE 

SET GR9 TO POINT TC ADDRESSING AREA 
AT END OF DSA 

AND STORE IN ADDRESSING VECTOR. 


APPEARS 


ONLY IN THE CASE CF RECURSIVE PROCEDURES 


L 


ST 
LA 
SR 
ST 


MVI 


CONTROL SECTION TO REAL DOPE VECTORS IN DSA. 


14,PR...A(12) 


14,92(0,13) 
14,PR...A(12) 
14,12 
14,88(0,13) 


INITIALIZE ON SLOTS (IF 


0(13),x'8r' 


LOAD GR14 WITH THE CURKENT DISPLAY 
VALUE FOR A 
STORE IN DISPLAY UPDATE IN DSA 


Gr14 = OFFSET OF DISPLAY PSEUDO-REGISTER 
STORE IN DISPLAY UPDATE IN DSA 


ANY) 
IDENTIFY DSA. 


COPY SKELETON DOPE VECTORS (IF ANY) FROM STATIC INTERNAL 


(THERE iS ALWAYS A 
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* SKELETON FOR A REAL DOPE VECTOR), AND RELOCATE THE ADDRESSES WITH TEE 
ADDRESS OF THE DSA FOR THOSE DOPE VECTORS REFERRING TO VARIABLES 
* IN THE DSA. 


* 


* FOR EACH VDA (VARIABLE DATA AREA) REQUIRED BY THE 
* PROCEDURE THE CODE BETWEEN THE LABELS VDA1 AND VDA2 IS 
* GENERATED 
VDA1 SR 7,7 CLEAR STOKAGE ACCUMULATOR AC1 
SR 0,0 CLEAR SECONDARY DOPE VECTOR STORAGE 
* ACCUMULATOR AC2 
* FOR EACH VARIABLE IN THE VDA, THE FCLLOWING CODE IS 
* GENERATED (BETWEEN LABELS VAR1 AND VAR2). 
AR1 EVALUATE EXTENT EXPRESSIONS (DIMENSIONS AND STRING LENGTHS) AND 


V 
* STORE RESULTS IN DOPE VECTOR IN DSA. 

* ALIGN ACCUMULATOR AC1 CN CORRECT BOUNDARY FOR VARIABLE 

* BUMP ACCUMULATOR AC2 EY SIZE OF SECONDARY DOPE VECTOR (IF VARIABLE 
* IS DIMENSIONED AND VARYING). 

* RELOCATE ADDRESS IN VARIABLES DOPE VECTOR RELATIVE TO START OF 

* 


VDA. 
VAR2 BUMP ACCUMULATOR ACL BY SIZE OF STORAGE REQUIRED FOR VARIABLE 
AR 0,7 ADD ACL AND AC? 
L 15,36(0,11) LOAD GR15 WITH ENTRY PCINT IHESAD2 
BALR 14,15 GET VDA 
LA 1,8(0,1) BUMP VDA POINTER PAST FLAG AND CHAIN SLOTS 
AR Ligh POINT GR7 AT FIRST SECONDARY LOPE VECTOR. 
L 14,DV..VAR(0,13) FOR EACH VARIABLE IN REGION, RELOCATE 
AR 14,1 ADDRESS IN DOPE VECTOR. 
ST 14,DV..VAR(0,13) 
* FOR EACH DIMENSIONED VARYING ITEM IN REGION, INITIALIZE 
VDA2 SECONDARY DOPE VECTORS. 
LA 10,PROCBASE SET UP PROCEDURE BASE 


CODE (IF ANY) TO SET UP SOME ADDRESSING MECHANISMS IN E 
ADVANCE FOR USE IN PROCEDURE 


BCR 15,8 RETURN FROM COMMON PROLOGUE. 
CNOP 0,4 
AB BC 15,8(0,15) BRANCH ROUND ECD OF ENTRY POINT 
DC AL1(2) 
DC C'AB' 
STM 14,11,12(13) SAVE REGISTERS IN CALLLR'S SAVE ARZA 
L 10,PROBAS(0,15) SET UP FIRST PROLOGUE BASE 
BAL 8,GETDSA(10) BRANCH AND LINK TO GET DSA AND TO SET 
* UP ADDRESSING VECTOR 
MVI SWITCH (13) ,X‘X3' SET UP RETURN (EXP) SWITCH IF THEKE IS 
* RZTURN (EXP) AND DATA ATTRIBUTES OF 
* ENTRY LABELS DIFFER 
BC 15,COPRAM2(0,8) BRANCH TO COPY OVER PARAMETERS 
IJK BC 15,12(0,15) BRANCH ROUND FOLLOWING CONSTANTS 
DC AL1 (3) LENGTH OF BCD 
DC C'IJK' BCD OF ENTRY POINT 
PROBAS DC ACA) FIRST PROLOGUE BASE 
STM 14,11,12(13) SAVE REGISTERS IN CALLER'S SAVE AREA 
L 10,PROBAS (0,15) SET UP FIRST PROLOGUE FASE 
BAL 8,GETDSA(0,10) BRANCH TO GET DSA ANT SET UP 
* ADDRESSING VECTOR 
MVI SWITCH(13),x'xu' SET RETURN (EXP) SWITCH 
COPRAM2 L 14,0(0,1) PICK UP FIRST ARGUMENT ADDRESS 
LA 0,10(0,0) 
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LOOP 


COMMON 
* 


* 


ONSTART 


LOOP 


SR 14,0 


LH 14,0(0,14) 
ST 14,Y(0,13) 
L 14,4(0,1) 
ST 14,2(0,13) 
L 14,8(0,1) 
ST 14,TARGET(0,13) 
L 10,A...A(0,11) 


BAL 8,COMMON(0,10) 
BC 15,AE...AB(0,10) 


PICK UP PSEUDO-REGISTER OFFSET OF 
ARGUMENT AND STORE IN DSA. 

PICK UP ADDRESS OF SECOND ARGUMENT 
AND STORE IN Z 

PICK UP ADDRESS OF TARGET FIELD 

AND STORE IN DSA 

LOAD GR10 WITH ADDRESS OF FIRST BYTE 
OF PROCEDURE 

BRANCH AND LINK TO COMMON PROLOGUE 
BRANCH TO APPARENT ENTRY POINT AP 


THIS IS THE APPARENT ENTRY POINT OF A. 


THE FOLLOWING IS AN ON BLOCK PROLOGUE WHICH IS COMPILFD FOR ALL 
ON BLOCKS EXCEPT IF BLOCK SPECIFIES SYSTEM 


STM 14,11,12(13) 
LR 10,15 


L 11,STATIC(0,10) 

L 15,32(0,11) 

L 0,SIZDSA(0,10) 
BALR 14,15 

LR 14,13 

LA 0,7(0,0) 

SR 15,15 

A 14,0(0,11) 

ST 14,ADVEC+4 (15,13) 


LA 15,48 (0,15) 
BCT 0,LOOP(0,10) 


SAVE REGISTERS 
SET PROLOGUE BASE 


SET UP STATIC INTERNAL PATA POINTEK 
LOAD GR15 WITH ADDRESS OF IHESADA 
LOAD GRO WITH SIZE OF DSA 

CALL IHESADA TO GET A DSA 


SET UP ADDRESSING VECTOR IN 
DSA 


BC 15,COMMON(0,10) BRANCH TO INITIALIZE DSA 
DC F'SIZE OF DSA' 

DC A(STATIC INTERNAL CONTROL SECTION) 

BALR 10,0 


CODE IS GENERATED HERE FCLLOWING SAME PATTERN AS FOR 
A BEGIN PROLOGUE (SEE BELOW) COMMON SECTION. 


LA 10,ONSTART 


EPILOGUE FOR AN ON BLOCK 
L 15, IHESAFA (0,11) 
BALR 14,15 


PROLOGUE FOR A BEGIN BLOCK 


LA 14,BEND 

BALR 15,0 

CNOP 0,4 

STM 14,11,12(13) 
BALR 9,0 

L 15,32(0,11) 

L 0,SIZDSA(0,9) 
BALR 14,15 

LR 14,13 


LA 0,7(0,0) 

SR 15,15 

A 14,0(0,11) 

ST 14,ADVEC+4 (15,13) 
LA 15,4(0,15) 

BCT 0,LOOP(0,9) 


BC 15,COMMON (0,9) 
DC F'SIZE OF DSA' 
LA 9, ADDAREA (0,13) 


LOAD GR15 WITH ENTRY PCINT TO EPILOGUE 
ROUTINE AND BRANCH AND LINK TO IT 


SET UP RETURN REGISTER 
SET UP ENTRY POINT ADDRESS 


SAVE REGISTERS IN CONTAINING BLOCK'S DSA 
SET UP PROLOGUE BASE 
LOAD GR15 WITH ENTRY POINT TO IHESADA 


GET A DSA 


SET UP ADDRESSING VECTOR FOR DSA 


SET GRG TO POINT TO ADDRESSING AREA 
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BEND 


SZ 3 X A * % 


— ve — — —À — HM — ee —— ee — — — ee 


ST 9, ADVEC (0,13) 
VECTOR 


THE CODE GENERATED HERE IS THE SAME AS THAT FOR A 


AT END OF DSA AND STORE IN ADDRESSING 


PRCCEDURE PROLOGUE 


EXCEPT THAT A DIFFERENT CODE BYTE IS MOVED TO THE FIRST BYTE OF THE 
DSA; GR10 IS NOT RESET; AND THE BCR 15,8 IS NOT GENERATED. 


EPILOGUE OF A BEGIN BLOCK 


L 15,IHESAFA LOAD GR15 WITH ENTRY 
BALR 14,15 
RETURN (EXP) STATEMENT EXAMINES THE LOCATION 


POINT OF 


EPILOGUING ROUTINE AND CALL IT 


'SWITCH' IN THE DSA 


SET BY THE PRCLOGUE TO DETERMINE THE CONVERSION KEQUIRED ON 


THE EXPRESSION. 


THE TARGET FIELD FOR WHICH THE LOCATION 


IT THEN ASSIGNS THE CONVERTED EXPRESSION TO 
"TARGET', 


IN THE. DSA, 


POINTS TO EITHER ITS DCPE VECTOR (IN THE CASE OF A STRING) 


OR THE STORAGE. 
END STATEMENT 
L 15,1HESAFA 
BALR 14,15 


In compilations specifying OPT-1, if a 
PROCEDURE or BEGIN block has a DSA which 
requires less than 512 bytes of storage, 
such storage may, under certain conditions, 
be obtained from STATIC storage or from 
library workspace. To obtain a STATIC DSA, 
the block must satisfy these conditions: 


1. The block must not be re-entrant or 
recursive 
2. The block must not be nested (at any 


depth) within an ON block 
3. The block must not have the MAIN or 
TASK options 


A block which is ineligible for a STATIC 
DSA, and whose DSA will never be active 
when any new DSA is required, is allocated 
its DSA from library workspace. 


Each block requiring a DSA either in 
STATIC or in library workspace calls one of 
two compiled subroutines, instead of IHF- 
SAD, to allocate the storage. Either or 
both subroutines, if required, are compiled 
onto the end of the program, and are 
prefixed by the comments ‘STATIC PROLOGUE 
SUBROUTINE' and 'DYNAMIC PROLOGUE 
Subroutine' respectively. Entry may ke 
made to the STATIC prologue subroutine at 
one of several points. 


Any block using one of these prolcgue 
subroutines will also use a compiled Epilo- 


gue subroutine, which will ke called for 
the END statement of the block, or for a 
RETURN statement without an expression. 
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ROUTINE IHESAFA IS THEN INVOKED. 
(WHICH IS THE SAME AS A RETURN STATEMENT) 


Subroutine serves both 
workspace  DS2s.) if 
|there is any core to ne freed, the Epilogue 
[subroutine will call IHESAFA. The Epilcgue 
|subroutine is also compiled onto the end of 
Ithe program, and always immediately pre- 
|cedes the STATIC Prologue subroutine if 
{this is present. 


|(The same Epilogue 
[STATIC and library 


| The address of the Dynamic Prologue 
|subroutine and the Epilogue subroutine are 
|placed in the STATIC internal control sec- 
|tion, at offsets 40 and 48 from the start 
|respectively. Since the STATIC Prologue 
|subroutine always follows the Epiloque sup- 
jroutine, which is of fixed length, a third 
laddress sict is not required fcr it. 


| Listings of tne Dynamic and Static Pro- 


[ou DYNAMIC PROLOGUE SUBROUTINE 
| L 5,PR..IHEQLWF (12) 
| LTR 5,5 

| BC 8,90(15) 

| i O, PR. . IHEQINV (12) 
[ LTR 6,6 

| BC 4,90(15) 

| LR 13,5 

t SR 212 

| L 3,PR..IHEQSLA (12) 
| ST 13,PR..IHEQSLA(12) 
| ST 3,4 (13) 

| TM 0(3),x'80' 

| EC 1,52(15) 

| L 3,4(3) 

| B 36 (15) 

| ST 13,8 (3) 

| E 4,PR..IHEQINV(12) 
| LA 4,14) 

| ST 4, PR.. IHEQINV (12) 


4,84 (13) 
2,80(13) 
2,8(13) 
76(13),x'00' 
2,96(13) 

14 

15,32 (11) 

15 


END SUBROUTINE 


EPILOGUE SUBROUTINE 


TM 
BC 
L 
LTR 
BC 
C 
BC 
L 
ST 
TM 
BC 
L 
B 
ST 
LM 
BR 


1(13),x'80' 
8,60(15) 

2,80(13) 

2,2 

7,60(15) 
13,PR..IHEGQSLA(12) 
7,60(15) 

13,4 (13) 
13,PR..IHEOSLA(12) 
0(13),x'80' 
1,50(15) 

13,4 (13) 

34(15) 

2,8(13) 
14,11,12(13) 

14 


| E 15,A..IHESAFA 
| BR 15 

[ox END SUBROUTINE 

po * STATIC PROLOGUE SUPKCUTINE 
| L 4, PR. . EHEQINV (12) 
| LTR 4,4 

| BC 11,86(15) 

| n 7,PR..IHEQLWO (12) 
| MVC 80(4,3),80(7) 

| LA 4,1 (4) 

| ST U,PR..IHEQINV (12) 
| ST 4,88 (3) 

| MVI 76(3),X'00' 

| ST 3,8(13) 

| LR 13,3 

| vè 3,PR..IHECSLA(12) 
| ST 3,4(13) 

| ST 13,PR..IHECSLA (12) 
| SR 250 

| ST 2,80(13) 

{ ST 2,8(13) 

| ST 2,96(13) 

| ER 14 

[ox END SUBROUTINE 


Appendix H: Code for Frologues and Epilcgues 
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APPENDIX I: DIAGNOSTIC MESSAGES 


ee ee EE EE EE E E S e A Gan e a eaa 


The messages produced by the PL/I (F) 
Compiler are explained in the publication 
IBM System/360 Operating System, PLZI LEI 


Programmer's Guide, Form  C28-6594. The 
following table associates a message number 
with the particular phase and module in 
which tne corresponding message is generat- 


ed. 


Message 

Number Logical Phase Module 
IEMOOO1I Read In CA 
IEMOOOZI Read In CA 
IEMOOO03I Read In CA,CP 
IEMOOOAI Read In CA 
IEMOOOSI Read In CA, CL 
IEMOOO06I Read In CA 
TEMOOO7I Read In CA 
IEMOOOSI Read In CA 
IEMOOO09I Read In CA 
IEMOO10I Read In CA 
IEMOO11I Read In CA 
IEMOO12I Read In CA 
IEMOO13I Read In CA 
IEMOO14I Read In CA 
IEMOO151I Read In CA 
IEMOO16I Read In CA 
IEMOO17I Read In CA 
IEMOO18I Read In CA 
IEMOO19I Read In CA 
IEMOOZ201I Read In CA 
IEMOO21I Read In CA 
IEMOO22I Read In CA 
IEMOO23I Read In CA 
IEMOOZUI Read In CA 
IEMOO251I Read In CA 
IEMOO261I Read In CA 
IEMOO27I Read In CA 
IEMOO28I Read In CG 
IEMOO291I Read In CA 
IEMOO311I Read In CA,CL,CT 
IEMOO32I Read In cC 
IEMOO33I Read In CC 
IEMOO35I Read In cc 
IEMOO37I Read In CC 
IEMOO38I Read In CC 
IEMOO39I Read In CC 
TEMOODOT Read In CC 
IEMOOU3I Read In cc 
1IEM00441 Read In cc 
IEMOOUSI Read In CC 
TEMOO46L Read In cc 
IEMOOLSI Read In CG 
IEMOOSOI Read In CL,CP 
IEMOO51I Read In CL,CP 
IEMOO521I Read In CO 
IEMOOS53I Read In CO 
IEMOOSAI Read In CO 
IEMOO551I Read In CP 
IEMOO57I Read In CC 
IEMOO58I Read In CC 


422 


IEMOO59I 
IEMOOG6OI 
IEMOO61I 
TEMOO63I 
ITENOOGUI 
IEMOO661 
IEMOO67I 
IEMOO69I 
IEMOO?701 
IEMOO71I 
IEMOO72I 
ITEMOOTUI 
IEMOO75I 
IEMOO76I 
IEMOO77I 
IEM00781 
IEMOOSOI 
IEMOOB1I 
IEMOO82I 
IEMOOS83I 
IEMOOB8UI 
IEMOOS85I 
IEMOO90I 
IEMOO94T 
IEMOO95I 
IEMOO96I 
IEMOO9T7I 
IEMOO99I 
IEMO1001 
IEMO101I 
IEMO102I 
IEMO103I 
ITEMOLOUI 
IEMO105I 
IEMO1061 
IEMO1071 
TEMO1081 
IEMO109I 
IEMO110I 
IEMO111I 
IEMO112I 
IEMO113I 
IEMO114I 
IEMO1151I 
IEMO1161 
1EM01181 
IEMO128I 
1EMO01 291 
TEMO1 301 
IEMO131I 
IEMO132I 
IEM01331 
IEMO134I 
IEMO135I 
IEMOÓ136I 
IEMO138I 
IEMO139I 
1£M01411 
IEMO152I 
1£M01431 
1IEM0144I 
IEMOIUSI 


Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 


In 
In 
In 
in 
in 
In 
in 
in 
in 
in 
in 
In 
in 
In 
in 
In 
in 
in 
in 
in 
in 
in 
in 
In 
in 
In 
in 
in 
in 
In 
In 
in 
in 
in 
in 
in 
in 
In 
in 
in 
In 
in 
In 
in 
in 
In 
In 
In 
In 
in 
in 
In 
in 
In 
In 
In 
in 
in 
In 
in 
In 
In 


CP 
CP 
CP 
CO 
cc 
CG 
CL 
CG 
CG 
CG 
CG 
CG 
CG 
CG 
CG 
CG 
CG 
CG 
CG 
CG 
CG 
CI 
CI 
CI 
CI 
GG. CT 
CI 
CI 
CI 
CM 
CI 
CI 
cc 
CC, CG 
CI, CV 
CI 
CI 
CG,CI 
ET 
CI 
CI 
CG, Ch 
CI 
CL 
CI 
CL 
CO 
CL 
EL 
CO 
CO 
co 
CP 
CP 
CC 
CP 
CP 
CP 
CO 
CO 
CO 
CO 


IEMO1B561 
TEM01471 
TEMO149I 
ITEMO1501I 
IEMO151I 
IEMO152I 
IEMO153I 
TEMO154I 
IEMO158I 
IEMO159I 
IEMO163I 
IEM01641 
TEMO1661I 
TEMO1721I 
TEMO1801I 
IEMO1811I 
1EM01821 


iEMO185I 
IEMO187I 
IEMO191I 
1EM01931 
IEMO194I 
IEM0O195I 
IEMO198I 
IEMO202I 
IEMO207I 
I£MO208I 
IEMO2091I 
IEMO2111 
IEMO2121 
IEMO213I 
IEMO21U1I 
IEMO2161 
IEMO217I 
IEMO2201 
IEMO221I 
TEMO2221I 
IEMO2231I 
IEMO22UI 
TEMO225I 
IEMO2261 
IEMO227I 
IEMO2281I 
IEMO2291I 
IEMO230I 
IEMO231I 
IEMO232I 
IEMO2331 
IEMO2351 
IEMO2361 
IEMO237I 
IEMO238I 
IEMO239I 
IEMO2401 
TEMO2U41I 
IEMO2U42I 
IEMO2U3I 
IEMO244I 
IEMO2!USI 
IEMO2U7I 
TEMO2541I 
IEMO255I 
TEMOSIOI 
IEMO511I 
IEMO512I 
IEMOS513I 
IEM0514I 


Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
kead In 
Read In 
Read In 
Read In 


Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read in 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 


CG 


EH 
EH 
EG 
EG 


IEMO515I 
IEMOS16I 
IEMO517I 
1EM05181 
1EM05191 
IEMO5201 
IEMO5Z1I 
IEMO5221I 
IEMO523I 
IEMOS5ZUI 
IEMO5251I 
IEMO527I 
IEMO528I 
IEMO5291I 
IEMO530I 
IEMO5311I 
ITEMO532I 
IEMO533I 
ITEMO5 341I 
IEM05351 
IEMO5361 
TEMO5371 
IENO5381 
IEMO5391 
IEMOSUOI 
ITEMOS541I 
IEMOSU2I 
TEMO5431 
1EM05441I 
IEMOSUSI 
IEMO5461 
ITEMOSUTI 
TEMOS5481I 
TEMOS49T 
IEMO5501I 
IEMO5SII 
TEMO5521I 
IEMO5531I 
TEMO5541 
TEMO5551I 
TEMO5561I 
IEMO557I 
IEMOS58I 
IEMO559I 
IEMO5601 
IEMO561I 
IEMO562I 
IEMOD63I 
IEMO5G6UI 
IEMOS651 
IEMO5661I 
1EM05671 
1EM05681 
TEMO5691 
IEM05701 
IEMO571I 
IEM0O572I 
IEM0O573I 
IEMO5891I 
IEMO5901I 
IEMO591I 
IEMO5921 
IEMO5931I 
TEMOS9UI 
IEMOS95I 
IEMO596I 
IEM0597I 
IFM0598I 


Pictionary 
Dicticnary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dicticnary 
Dictionary 
Dicticnary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dicticnary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dicticnary 
Dicticnary 
Dictionary 
Dictionary 
Dictionary 
Dicticnary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dicticnary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 


EG 
EG 
EG 
EG 
EG 
EG 
EG 
EG 
EG 
EH 
EI 
EJ 
EH,LI,rJ 
EI 
EI 
EI 
EI 


EL; ER, EM 
EL,EK,ELM 
EL, EK, EM 
EL, ÈK, Eu 
EL, EE: Eh 
EL, SR: EN 
EL, EE , EN 
EL, EF,EM 
EK,EL,EM 
EL, ER: &M 
EL, ER: EM 
EL, EK, 11M 
EL, ER, Ch 
EL,rK,rM 
EL,EK,EM 
EL, EK, iii 
EL,£K, cM 
EL, ER, LM 
EL, Ek: LM 
EK,EL, EM 
DK, EL, EN 
EK,EL,EM 
ZK, EL, EN 
ER, EI ,£M 
EP 
EP 
EP 
EP 
EK 
EL 
EL 
EW 
ZW 
EW 
EW 
EW 
EW 
EW 
EW 
EW 
EW 
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IEMO599I 
IEMOG02I 
IEMOG6031I 
ITEMOGOUT 
IEM06052 
IEMO6061I 
IEMOG07I 
IEMO608I 
TEMO6091I 
ITEMO6101I 
IEMO6111 
1EM06121 
IEMO6231I 
IENOG6ZUI 
TEMO6251I 
IEMO626I 
IEMO6271 
1IEM06281 
IEMOG29I 
IEMO6301I 
IEM0631I 
TEMO63ZI 
1EM06331 
1EM06341 
IEM06361 
iEMO6371 
IEMOG638I 
IEMO6401I 
IEMO6411 
IEMO6U2I 
IEMOG6U3I 
IEMO6441 
IEMO6Uu5I 
IEMO646I 
TEMOGUTI 
IEMO652I 
IEMOG653I 
IEMOG65UI 
IEMO655I 
IEMO6561I 
IEMO657I 
IEMO658I 
TEMO6731I 
IEMO6741 
IEMO675I 
IEMO6761I 
IEM06771 
IEM06831 
IEMOG68UI 
IEMO685I 
TEMO6861 
IEMO687I 
IEMO688I 
IEMO689I 
IEMO6901 
IEMO6911 
IEMO692I 
IEMO693I 
IEMOGOUI 
IEMO695I 
IEMO6961I 
IEMO6971I 
IEMO699I 
IEMO7001I 
IEMO7011 
IEMO7021I 
IEMO7OS3I 
IEMO70UI 
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Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dicticnary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 


EW 
FV, FW 
FV, FW 
FV, FW 
FV, FW 
FV, FW 
FV, EW 
FV, Fw 
FV, FW 
FV, FW 
EV, EW 
FV 

FV, FW 
FV, FW 
FV, FW 
FV, FW 
FV, FW 
FV, FW 
FV, FW 
FV, FW 
FV, FW 
FV, FW 


EX 
EY 
EY 
EY 
EY 
EY 
EY 
EY 
EY 
EY 
EY 


FE 
FE 
FE 
FE 
FE 
FE 


FF 
FF 
FF 
FE 
FI 
FI 
FI 
FI 
FI 
FI 
FI 
PI 


FI 
FI 
FI 
FI 


FI 
FI 
FI 
FI 
FI 
FI 
FI 


IEMO7051 
IEMO706I 
UEMO707I 
LEMO70@L 
IEi^0709I 
1EM07101 
1EM07111 
IEMO712I 
IEM3713I 
IEMO715I 
IEMO7181I 
IEMO719I 
IEMO720I 
IEMO721I 
IEMO722I 
IEMO723I 
IEMO72UI 
IEMO7251 
IEMO7261I 
IEMO727I 
IEMO728I 
IEMO729I 
IENO730I 
IEMO7311I 
IEMOT732I 
TEMO7331 
IELKO73UI 
IEMOT735I 
IEMO736I 
IEMO737I 
IEMO7391I 
IEM07401 
IEMO7U51I 
LEMO74 21 
TEMO745I1 
TEMOTUGI 
IEMOTUTI 
ITEMOT7USI 
TEMO749I 
IEMO750I 
IEMO751I 
IEMO7521I 
TEMO7541 
IEMO755I 
IEMO756I 
IEMO758I 
IEMO7591I 
IEMO760I 
IEMO761I 
IZMO762I 
IEMO769I 
TEMO770I 
IEMO7711 
LEMO778I1 
IEMO779I 
IEMO7801I 
1EM07811 
JEM07821 
IEM0786I 
I£EMO787I 
IEMO790I 
IEMO7O91I 
IEMO792I 
1EM07931 
IEMO79UI 
EMO795I 
IEMO7961 
IEMO797I 


Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dicticnary 
Dictionary 
Dicticnary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dicticnary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Licticnary 
Dicticnary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dicticnary 
Dictionary 
Dictionary 
Dicticnary 
Dicticnary 
Dictionary 
Dictionary 
Dicticnary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dicticnary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretrenslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretrensiator 
Pretransiator 
Pretranslatcr 
Pretrenslator 
Pretranslatcr 


FI 
FI 
FI 
FK 
FK 
FK 
FK 
FK 
FK 
EJ 
FO 
FO 
FO 
FO 
FO 
FO 
FO 
FO 
FO 
FO 
FO 
PO 
FQ 
FC 
FQ 
FQ 
FO 
FQ 
FQ 
FO 
FO 
FQ 
FQ 
FQ 
FQ 
FQ 
FO 
FQ 
FQ 
FQ 
FQ 
FQ 
FC 
FQ 
FQ 
FC 
FQ 
FC 
FC 
FC 
GB 
GB 
GB 
GB 
GB 
GE 
GB 
GE 
GK 
Gk 
GK 
GK 
GP,GC,GR 
GP, GQ, GR 
GP, GQ, GR 
GP, GQ, GR 
GP, GQ, GR 
GP, GE,GR 


IEMO798I 
IEMO799I 
IEMOS001 
IEMOB801I 
IEMOS8021 
IEMOS803I 
IEMO8041 
IFMO8051 
IEMOS061 
1EM08071 
IEMOS161 
1EM08171 
1EM08181 
1EM081 91 


IEMOS8201. 


IEMO8211I 
IEMO823I 
1EMO8241 
IEMO8251 
IEMOS8261 
IEMOS832I 
IEMOB833I 
IEMO8341I 
IEMOS835I 
1EM08361 
IEMOS837I 
IEMOS8458I 
TEMO849T 
IEMOS850I 
IEMOS8511I 
IEMOS852I 
IEMO8531 
TEMOS641 
IEMO8651 
IEMO8661I 
TEMO8671 
IEMOS868I 
TEMOS8691 
LEMO8701 
TEMO8711 
IEMOS8721I 
IEMOS873I 
IEMOS87UI 
IEMOS75I 
IEMO876I 
IEMO877I 
TEMO8781 
IEMOS8791 
IEMOS880I 
IEMOS881I 
IEMOS882I 
IEMOS896I 
IEMOS897I 
TEMO8981 
TEMO899I 
IEMO900I 
IEMO9O01I 
IEMO902I 
IEMO903I 
IEMOS9061 
IEMO907IÍ 
LEM1024T 
IEM10251I 
IEM10261I 
IEM10271 
IEM1028I 
IEM1029I 
IEM10401 


Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Precranslator 
Pretranslator 
Pretransiatcr 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Fretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretransiator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretransiator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretransiator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretransiator 
Translator 

Translator 

Translator 

Translator 

Translator 

Translator 

Translator 


GP,GQ,GR 
GP,GC,GR 
GP,GQ,GR 
GP,GC,GR 
GP,GC,GR 
GP,GC,GR 
GP,GG,GR 
GP,GC,GR 
GP,GG,GR 
GP,GC,Gn 
GU,GV 
GU,GV 
GU,GV 
GU, GV 
GU,GV 
GU,GV 
GU, GV 

GU 

GU,GV 
GU,GV 
HF, HG 
dF, HG 
HF, HG 
HF, HG 
HE, HG 
HF, HG 
HF, HG 
HE, HG 
HF, HG 
HF, HG 
AF, HG 
HF, HG 
HK, HL 
HK, HL 
HK, HL 
HK, HL 
HK, HL 
HK, HL 
HK, HL 
AK,HL 
HK, AL 
HK,HL 
HK, aL 
HK, HL 
AK,HL 
HK, HL 
üK, HL 
HK, HL 
HK, HL 
HK, HL 

iK 

HP 

HP 

HP 

HP 

HP 

HP 

iP 

iP 

HP 

HP 

iA 

IA 

IA 

LA 

IA 

IA 

IM 


IEM10511 
TEMIO561I 
IEM10571 
IEM1058I 
LEM10591 
IEM10601I 
IEM10611 
IEM10621 
IEM10631 
IEM1064I 
1EM10651 
IEM10661 
1EM10671 
IEM10681 
IEM10711 
IEM1072I 
IEM10731I 
IEM10741 
IEM10761 
IEM1082I 
1EM10881 
IEM10891I 
1EM10901 
IEM1091I 
IEM1092I 
IEM11041 
IEM11051 
IEM11061I 
IEM11071 
IEM11081 
TEM11101 
IEM11111 
IEM11121 
IENM11131 
IEM11141 
1EM11151 
IEM11201 
1EM11211 
IEM1122I 
IEM1123I 
TEM11251 
LEM12007 
IEM1569I 
IEM15701 
IEM15711 
IEM15721 
1EM15741 
IEM15751 
IEM16001 
IEM16011 
IEM16021 
IEM16031 
IEM16041 
1EM16051 
IEM16061 
IEM1607I 
IEM1608I 
1EMI609I 
IEM16101 
IEM16111 
1EM16121 
1EM16131 
1EM16141 
IEM16151 
1EM16161 
IEM1617I 
IEM16181 
IEM16191 
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Translator 
Translator 
Translator 
Translator 
Translator 
Translator 
Translator 
Translator 
Translator 
Translator 
Translator 
Translator 
Translatcr 
Translator 
Transiator 
Translator 
Translator 
Translatcr 
Translator 
Translator 
Aggregates 
Aguregates 
Aggregates 
Aggregate Preprocessor 
Aggregates 
Aggregates 
Aggregates 
Agcreaates 
Aggregates 
Aggregates 
Aggregates 
Aggregates 
Aggregates 
Aggregates 
Aggregates 
Aggregates 
Aggregates 
Agaregates 
Aggregates 
Fseudc-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudc-code 
Pseudc-code 
Pseudo-code 
Fseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudc-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Fseudo-code 
Pseudc-code 
Pseudo-code 


IM 
IM 
IM 
IM 


L6 
LS,LT,LU 
LS 
LS,LI,LU 
LS,LT,LU 
LS,LT,LU 
LS,LT,LU 
LS,LT,LU 
LS,LT,LU 
LS,LT,LU 
LS,L1,LU 
LW 
LW 
LW 
LS,LT, LU 
LW 
ME 
ME 
MB 
MB 
MB 
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0 


IEM16201 
IEM16211 
IEM1622I 
IEM16231 
IEM16241 
IEM16251 
1EM16261 
IEM16271 
IEM1628I 
IEM1629I 
IEM1630I 
IEM1631I 
IEM16321I 
IEM16331 
1EM16341 
IEM16351 
IEM16361 
IEM1637I 
IEM1638I 
IEM1639I 
IEM16401 
1EM16411 
IEM16421 
IEM16431 
IEM1644I 
IEM1645I 
IEM1648I 
IEM1649I 
IEM1650I 
IEM16511 
TEM16521I 
IEM1653I 
IEM1654UI 
IEM1655I 
IEM1656I 
IEM1657I 
IEM16701 
IEM16711 
IEM1680I 
IEM1687I 
1EM16881 
1EM16891 
IEM16911 
IEM1692I 
IEM16931 
IEM17501 
IEM1751I 
IEM17521 
IEM1753I 
1IEM17541 
IEM17901 
IEM1793I 
IEM17941 
IEM1795I 
IEM1796I 
IEM17971 
IEMj1.8001 
1EM18011 
IEM18021 
IEM1803I 
1EM18041 
IEM1805I 
IEM1806I 
IEM18071 
IEMIS808I 
IEM1809I 
IEM18101 
IEN1811I 
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Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 


MB 
MB 
ME,ME 
MB 
MB 
MB 
ME 
ME 
ME 
ME 
MG, MH 
MI,MJ 
MI,MJ 
ME 
ME 
ME 
ME 
ME 
ME 
MF 
MM, MN 
MM, MN 
MM, MN 
MM, MN 
MM, MN 
MM, MN 
MM, MN 
MM, MN 
MM, MN 
MM, MN 
MM, MN 
MM, MN 
MM, MN 
MN 
ME 
MM 
MP 
MP 
MS 
MS 
MS 
MS 
MS 
MS 
MS 
MS 
MS 
NA 
NA 
NA 
OG, OM 
OE 
OE 
OE 
OE 
OE 
OS 
OS 
OS 
OS 
OS 
OS 
OS 
OS 
OS 
OS 
OS 
OS 


IEM1812I 
IEM18131 
IEM1814I 
IEM18151 
1EM18161 
1EM18171 
IEM18181I 
TEM1819I 
IEM1€ 201 
IEM1621I 
IEM1822I 
IEM1823I 
1EM18241 
IEM1825I 
IEM1826I 
IEM1827I 
IEM1828I 
IEM1829I 
IEM1830I 
IEM1832I 
IEM1833I 
IEM18 341 
IEM1835I 
IEN1836I 
IEM183T7I 
IEM18381 
IEM1839I 
IEM1850I 
1IEM18411 
1EM18431 
1FM18441 
TEM18451 
IEM18461 
IEM18H7I 
IEM18481I 
ITEM18491I 
IEMI850I 
IEM1860I 
IEM18611 
IEM1862I 
IEM1870I 
1EM18711 
IEM1872I 
IEM1873I 
IEM187U0I 
IEM1875I 
IEM23041 
IEM2305I 
1EM23521 
IEM27001 
1EM27011 
IEM2702I 
IEM27031 
IEM27041 
IEM2705I 
IEM27061I 
IEM2707I 
IEM2708I 
IEM27091 
IEM27101 
IEM2711I 
IEM27121 
IEM2817I 
IEM2818I 
IEM2819I 
IEM2820I 
IEM2821I 
IEM2822I 


Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-ccde 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudc-code 
Pseudc-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudc-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudc-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 


Constant Conversions 
Constant Conversions 


Pseudo-code 
Pseudo-code 
Pseudc-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 


Storage Allocaticn 
Storage Allocaticn 
Storage Allocation 


Register 
Register 
Register 
Register 
Register 
Register 
Register 
Register 
Register 
Register 
Register 
Register 
Register 


Aliocation 
Allocation 
Allocaticn 
Allocation 
Allocation 
Allocation 
Allocation 
Allocation 
Allocation 
Allccaticn 
Allocation 
Allocation 
Allocation 


DCP Generation 
DCB Generation 
DCE Generaticn 
DCE Generation 
DCH Generation 
DCB Generation 


OS 
OS 
OS 
E 
NJ 
NJ 
NJ 
NJ 
NJ 
Nd 
NJ 
NJ 
NM 
NG 
NG 
NG 
NG 
NG 
NG 
NM 
NM 
NM 
NM 
NM 
NM 
NM 
NM 
NM 
NM 
NM 
INM 
NM 
NM 
NM 
NM 
OS 
OS 
NU 
NU 
NU 
NU 
NU 
NU 
NU 
NU 
NV 
PD 
PD 
PD 
DE, RG, RH 
RF,RG, KE 
BER, BG, Dh 
RF,RG, RE 
RF, RG, RH 
RF,RG,RH 
RF, RG, RH 
RF, RG, KH 
RF, RG, Rh 
RF RG KH 
RF, KG, RH 
FF, RGxii 
RF, Je gH 
GA 
GA 
GA 
GA 
GA 
GA 


IEM2823I 
IEM28241 
IEM2825I 
IEM2826I 
IEM2827I 
IEM2828I 
IEM2833I 
IEM28341 
IEM2835I 
IEM28361 
IEM2837I 
TEM28491 
IEM28521I 
IEM2853I 
IEM285UI 
IEM28551I 
IEM28651I 
IEM28661I 
IEM28671I 
IEM2868I 
IEM28811 
IEM28821 
IEM2883I 
IEM2884I 
IEM2885I 
IEM28861I 
IEM2887I 
IEM28881I 
IEM2897I 
IEM28981I 
TEM2899I 
IEM29001 
IEM29131 
IEM30881I 


IEM31361- 


31491 
IEM31511 


IEM3153I 
IEM31541 
IEM31561 
1EM31621 


IEM31671- 
31731 


IEM3ITOI- 


31901 


IEM31991- 


32131 
IEM35841 


1EM384 01 
IEM38411 
IEM38U2I 
1EM38431 
1EM38441 
1EM38451 
IEM38461 
IEM3847I 
IEM38U48I 
IEM3849I 
IEM3850I 
IEM38511 
1FM38521 


DCB Generation 
DCB Generation 
DCB Generation 
DCB Generation 
DCB Generation 
DCB Generation 


Final 
Final 
Final 
Final 
Final 
Final 
Final 
Final 
Final 
Final 
Final 
Final 
Final 
Final 
Final 
Final 
Final 
Final 
Final 
Final 
Final 
Final 
Final 
Final 
Final 
Final 
Final 


Assembly 
Assembly 
Assembly 
Assembly 
Assembly 
Assembly 
Assembly 
Assembly 
Assembly 
Assembly 
Assembly 
Assembly 
Assembly 
Assembly 
Assembly 
Assembly 
Assembly 
Assembly 
Assembly 
Assembly 
Assembly 
Assembly 
Assembly 
Assembly 
Assembly 
Assembly 
Assembly 


Dictionary, 
Pass 2 
Dictionary, 
Pass 2 
Dictionary, 
Pass 2 
Dictionary, 
Pass 2 
Dictionary, 
Pass 2 
Dictionary, 
Pass 2 
Dictionary, 
Pass 2 
Dictionary, 


Declare 
Deciare 
Declare 
Declare 
Declare 
Declare 
Declare 


Declare 


Pass 2 


Dictionary, 


Pass 2 


Dictionary, 


Pass 2 


48 Character 
Preprocessor 


Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 


Control 
Control 
Control 
Control 
Control 
Control 
Controi 
Control 
Contrcl 
Control 
Contrcl 
Control 
Control 


Declare 


Declare 


GA 
GA 
GA 
GA 
GA 
GA 
TF 
TF 
1F 
TE 
TF 
TI 
TJ 
LI 
TJ 
TJ 
TO 
TO 
TO 
TO 
TT 


TT 
TT 
TT 
TT 
TT 
TT 


UA 
UC 
UC 
UF 
EL 
EL 
EL 
EL 
EL 
EL 
EL 
EL 
EL 
BX 
AA 
AA 
AA 
AA 
AA 
AA 
AA 
AA 
AA 
AA 


AA 
AA 


IEM3853I 
IEM3855I 
IEM3856I 
IEM3857I 
IEM3858I 
IEE3859I 
IEM38601 
1EM38611 
IEM3862I 
IEM3863I 
IEM386UI 
1EM38651 
1EM38721 
IEM3873I 
IEM387UI 
IEM3875I 
1EM38761 
1EM38771 
IEM3878I 
IEM3880I 
IEM3887I 
IEM38881I 
IEM3889I 
IEM38901I 
IEM3891I 
1EM38921 
IEM38931I 
IEM3894I 
IEM3895I 
IEM38961 
1EM38:971 
IEM3898I 
1EM3899I 
IEM3900I 
IEM3901I 
IEM3902I 
IEM3902I 
IEM3903I 
IEM3908I 
IEM3905I 
IEM39061 
IEM3907I 
IEM3908I 
iEM3909I 
IEM39101I 
IEM3911I 
IEM3912I 
IEM41061 
TEM41091I 
IEM41121 
IEM4115I 
IEM41181I 
1EM41 211 
1EM41241 
1EM41301 
IEMA133I 
TEM41341 
ITEM41361 
IEM41391 
IEM41421 
TEM41431 
IEM41481 
1EM41501 
IEMU151I 
EM41521 
TEM41531 
TEM41541 
1EM41571I 
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Compiier Ccntrol AA 
Compiler Control AA 
Compiler Controi AA 
Compiler Control AA 
Compiler Control AA 
Compiler Control AA 
Compiler Controi AA 
Compiler Controi AA 
Compiler Control AA 
Compiler Control AA 
Compiler Control AA 
Compiler Control BA 
Compiler Control AA 
Compiler Control AA 
Compiler Control AA 
Compiler Control AA 
Compiler Ccntrol AA 
Compiler Control AA 
Compiler Centrol AA 
Compiler Control AA 
Compiler Control AA 
Compiler Control AA 
Compiler Control AA 
Compiler Control AA 
Compiler Control AA 
Compiler Control AA 
Compiler Control AA 
Compiler Control AA 
Compiler Control AA 
Compiler Control AA 
Compiler Control AA 
Compiler Control AA 
Compiler Control AL 
Compiler Control AB 
Compiler Control AB 
Compiler Control AB 
Compiler Control AB 
Compiler Control AB 
Compiier Control AA 
Compiler Control AA 
Compiler Control AA 
Compiler Control AA 
Compiler Control AA 
Compiler Control AL 
Compiler Control AB 
Conpiler Control AE 
Compiler Control AB 
Compile-time Processor AS 
Compile-time Processor AS 
Compile-time Processor AS 
Compile-time Processor AS 
Corpile-time Processor AS 
Compile-time Processor AS,BC,EG 
Compile-time Processor BC,BG 
Compile-time Processor BG 
Compile-time Processor BC 
Compile-time Processor BC 
Compile-time Processor BC 
Conpile-time Processor BC 
Compile-time Processor EC 
Compile-time Processor BC 
Corpile-time Processor BC 
Compile-time Processor BC 
Compiie-time Processor BC 
Compile-time Processor BC 
Conpile-time Processor BC 
Compile-time Processor BC 
Compile-time Processor RC 
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TEM41601 
IEM41631 
TEM41661 
1IEM41691 
IEM41721I 
IEMU175I 
TEM41761 
IEM41781 
TEM4184T 
IEM4187I 
TEM4188I 
TEM41901 
IEMG193I 
TEM41961 
ITEM41991I 
TEM4 2021 
IEMUZOSI 
TEM4 2081 
IEMU211I 
IEMA212I 
TEM4 2141 
1EM4 2171 
IEM4 2201 
TIEM4 2231 
1EM42261 
TEM4229I 
IEMG2321 
IEMU235I 
TEM42381 
TEM4241T 
TEM4 2447 
IEMUZ2UTI 
IEMGZ2USI 
IEM42501I 
IEM42531 
1IEM42541 
IEMUZ561 
TEM42591 
1EM42621 
1EM42651 
IEMA271I 
1EM42771 
IEM42801I 
IEMU283I 
IEMU286I 
IEM42891 
IEM42921 
IEMU295I 
IEMU42961I 
TEM4 2981 
IEMU299I 
TEM4301T 
TEM4304TL 
1EM43071 
ITEM4 3101 
IEM43131I 
IEM4319I 
IEMA322I 
1EM43251 
TEM43281 
IEM43311I 
TEM43321 
TEM4334T 
1EM43371 
ITEM43U0I 
TEM43431 
TEM43 461 
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Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-tinie 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
compile-time 
compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 


Processor 
Processor 
Processor 
Processor 
Processor 
Processor 


Processor E 


Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 


Processor 


Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 


Processor i 


Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 


IEMU3A49I 
IEMU352I 
IEM43551 
IEM43581 
TEM43611 
IEMU36UI 
IEM4367I 
IEM43701 
1EM43731 
IEM43761 
IEM4379I 
IEM4382I 
LEM42831 
IEM4391I 
TEM4394T 
IEM43971 
IEM44001I 
1EM44031 
IEMY44061 
IEMA4407I 
IEM4409I 
1EM441 21 
TEN 44151I 
1IEM44211 
1IEM44331 
LEM44 361 
IEMUU39I 
IEMAGAUSI 
TEM44511 
1EM44521 
IENGUSUI 
IEM44571 
IEM4460I 
IEM446 31 
TEMO469L1 
1EM44721 
ITEM44731 
IEM44751 
IEM44781 
IEM44211 
IEM44841 
IEM44991 
IEMUSOZI 
IEMUSOUI 
IEM45OSI 
IEM45061I 
1EM45081 
IEM4511I 
ITEM45141 
IEMUSITI 
IEM45201I 
IEM45231 
IEM45261I 
IEM45291I 
IEM45321 
IEMUD35I 
IEM45381 
ITEM45471 
TEM45501 
I£M45531 
IEM45591 
IEM45621 
IEM45701I 
IEMU572I 
TEM45741 
IEM45761I 
IEM45781I 


Compile-time 
Compile-time 
Compile-time 
Corpile-tire 
Compile-time 
Con.pile-time 
Compiie-time 
Compile-timrme 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 


Compile-time 


Compile-time 
Corpiie-time 
Conpile-time 
Conpile-tire 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Corpile-time 
Corpile-time 
Compile-time 
Corpile-time 
Compile-time 
Compile-time 
Corpile-time 
Corpile-time 
Compile-time 
Compile-time 
corpile-time 
Coupile-tine 
Conpile-tine 
Compile-time 
Compile-time 
Corpile-time 
Conpiie-tire 
Compiie-timre 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Conpile-time 
Compile-time 
Compile-time 
Conipile-timre 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Conpile-time 
Compile-time 


Processor | 


Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processcr 
Processor 
Processcr 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 


Processor | 


Processor 
Processor 
Processor 
Processor 


the 
the 


This appendix describes, for 
Compile-time Processor Logical Phase, 
internal formats of text and tables, com- 
munication region use, Operating System 
interfaces and compiler control interfaces. 


——Á—À MM a e e ae a n wan ewan pran anwe re O E 


The internal format of text used by the 
compile-time processor is EBCDIC. As 
source input is read into storage, non- 
macro text is moved directly into text 
blocks after translation tó internal 
format. Encoded compile-time statements 
and line numbers are also placed in text 
blocks. 


Format of a Dictionary Entry 


EEN EE me ne RY DEE es rar am a atu v abes mam tir t m 


The compile-time processor uses a set of 
chained dicticnary entries. Hashing tech- 
niques are used to add an item to the 
dictionary or to search for an entry. A 
compile-time processor dictionary item is a 


variable-length item with the following 
skeletal format: 
The fields defined in this skeleton have 


the following meaning and usage: 
LENGTH: The length of the EBCDIC name. If 
the item has no name (e.g., a 
constant) this field is zero. 


PROC NO.: The number assigned to the proce- 
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n a — ae — ee ee — ——— an ————————I———— 


Each procedure is 
assigned a unique number. The 
identifiers in the ron-procedural 
text are given the procedure number 
1. The built-in function SUBSTR is 


given the procedure number 0. 


declared. 


HASH-CHAIN-POINTER: The dictionary address 
of the next item on this hash 
cnain. This address is zero if nc 
item follows. 


TYPE: A byte which gives the attributes of 


the entry. The bits (if on) have 
been assigned the following  mean- 
ings: 
BIT — MEANING 

1 fixed 

2 character 

3 bit 

4 entry 

5 larel 

6 INCLUDE identifier 

7 iterative DO 

8 constant 


VALUE/VALUE-POINTER: If the item is fixed, 
this contains the value proper 
Stored as a five-digit packed deci- 
mal number. Otherwise it contains 
a pointer to the value stored in 
IVES. The definition of value for 
the various kinds of entries is 
given telow. For a fixed macro 
variable, this contains the value. 
For a character variable, it con- 
tains a pointer to IVEs containing 
tne vaiue. For a procedure, it 
points to the text-block location 


dure in which the identifier was of the code. For a label, it 
Byte 1 Byte 2 Byte 3 Byte 4 

== me Pp a a manc es tiem emn a eii tmm 1 
Word 1 | LENGTH | PROC NO. | HASH-CHAIN-POINTER | 
E---------- ł---------- l--------------------- 1 
Word 2 | TYPE | VALUE/VALUE-POINTER | 
ļł----------- dr PR csccen- 1 
Word 3 | FLAGS | COUNT | 
p--------------------- 1-~------------------- 1 
Word 4 | POINTERS/PARM-TYPES | 
EE a iD a TERQUE | 
Word 5 | EBCDIC NAME ------ > | 
PE AEN E IEEE a ee S J 
| | 
O oo 1 
Word n | ------ » EBCDIC NAME | 
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points to the text-block location 
of the label. If references to the 
label are found before the label is 
discovered, the value pointer  tem- 
porarily points to a chain of IVBs 
with a description of every  GOTO 
transferring to this label. This 
information is processed and dis- 
carded when the label is found. 
For an INCLUDE identifier, it 
points to the beginning of the 
included text. 


FLAGS: This set of pits provides additional 


COUNT: For a 


information about the use of the 
item. They are used as follows: 
BIT — MEANING 
1 special entry bit 
2 DECLARE encountered (Phase 
BC) 
3 procedure body encountered 
(Phase EC) 
4 parameter 


used to indicate a procedure 
called by Phase II scan. 
6 DECLARE encountered (Phase 
BG) 
unused 
ACTIVATE bit 
"in-use" bit 
0 "indirect reference" bit 
1 "undefined" bit for multiple 
declarations 
12 left-hand side (LHS bit) 


H P VD OO zl 


This field occupies a half-word. 


procedure entry, this field 
contains a count of the number of 
parameters for the prccedure. For 
INCLUDE identifier it is zero  ini- 
tially, and subsequently contains 
the initial line number assigned to 
the included text. 


POINTERS/PARAM-TYPES: ror a procedure, the 
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field contains an encoding of the 
type information for each formal 
parameter. Two kits are reserved 
for each parameter. One indicates 
fixed; the other indicates charac- 
ter. If neither bit is set, this 
indicates that the entry declara- 
tion did not specify attributes for 
the parameters. 


For a label, word 4 contains two 
pointers to dicticnary items. One 
points to tne dictionary entry for 
the immediately erkracing iterative 
DO. The second half-word contains 
a pointer to the dictionary entry 
for the immediately embracing 
INCLUDE. This provides a method of 
checking the legality of  GOTOS. 
For an INCLUDE identifier, only the 


pointer to the immediately embrac- 


ing INCLUDE is kept. 


During Phase I, word 4 is used for 
lakels and simple variables to hold 
two pointers. These form a bi- 
directional chain of all labels and 
variables having the same procedure 
number which have been used but not 
defined. This information is used 
oniy is Phase I and can therefore 
be overlaid. 
EBCDIC NAME: A variable length field, 
containing the EBCDIC name of the 
item. If the item has no name, 
tuis field is not included. 


Format of an Identifier Value Elock (IVE) 


To hold character and bit string values, 
some text blocks are organised into sub- 
blocks of 32 bytes each. Of these 32 
bytes, 27 are used to hold values or parts 
of values. The first byte is used to hold 
a copy of the last character in tne 
preceding IVB. This copy is made to facil- 
itate backup. The last four bytes consist 
of a ccndition code of one byte followed by 
a 3-byte chain pointer. A set of these 
sub-blocks, chained together, is used to 
[hold a value. The condition byte is 27 for 
all except the last sub-block in a values. 
In this last condition code byte the first 
bit is set to 1 to indicate "end-of-value." 
The remaining bits are a count of the 
Significant bytes in the suk-bklock. There 
is a maximum of 27 significant bytes in an 
IVB. 


The chain address is used to point to 
the next sub-block in a value. The meaning 
of the chain address in the last sub-block 
in a chain depends on hew the chair: is 
being used. 


These small chained  sub-biocks are 
referred to as "identifier value blocks," 
or IVBs. 

Text blocks are allocated to hola IVBs 


as the need arises. Those IVES not cur- 


rently in use are chained tcgether into an 
availakility chain and are re-used when 
needed. 


An example of a character string value 
held in IVBs is shown. The character 
String, whicn starts with AB and ends with 
CD, is 28 charecters long. Two iVBs are 
thus required to hold the value. The 
String AE...C is put into the first IVe, 
while the last character, D, is put into 
another IVE. The condition ccde byte of 
|the first IVB is 27. The second condition 


code byte is 10000001. The first "1" 
indicates  end-of-value, while 0000001 is a 
count of the significant characters in the 
IVB. 


Besides holding character-string values, 
IVBs are used in many places by the 
compile-time processor to hold information 
which must be chained from a dictionary 
entry and which is of indefinite iength. 
These uses are noted elsewhere. 


ENEE EE EE EE ENEE EE «Nen —ÓÓ——Ó— —À — — aka ———Á——— e 


—— — 


Compile-time statements are handled in 
two parts. During Phase BC, each Statement 
is recognized and syntax checked. An 


encoded form of the statement is then 
placed into the current text block. During 
Phase BG these encoded statements are  exe- 


cuted by an interpreter. 


All expressions are encoded in postfix 


Polish. A stack is used during Phase II to 
hold all operands. Conversions are done in 
Phase BG. 


Thus the expression (A+B)||C, for exam- 


ple, is turned into 
A B +C]| 


TO be more explicit, it is turned into the 
instructions 


PUSH A; 
PUSH B 
ADD; 

PUSH C; 
CONCAT 


The PUSH operator pushes its operand 
onto the phase II stack. This stack con- 
sists of 150 full words in scratch storage. 
The first byte of each call is a status 
byte; the last three bytes hold the value 
if the item is FIXED, a pointer if the item 
is CHARACTER or BIT, or an indirect ref- 
erence to a dictionary entry if the indi- 
rect bit is on. 

The bits of the status tkyte have the 
following meaning if set to one: 


"TH r T T 1 
|---->|CDL//// | 10000001] ? | 
Leien ee ee Get e m m Losz=iad Li a m in kn din dissss= L 

«---28-----» <---1---> <-3-> 


= ae 4 


BIT — MEANING 
1 FIXED 
2 CHARACTER 
3 BIT 
4 indirect reference (i.e., points 


to a dictionary entry) 


5 Character string value does not 


"belong" to the stack and shouid 
rot pe erased when stack is 
vopped. (Shared with Phase BG 
scan.) 


Bits 6-8 are unused by the interpreter. 
They are reserved for Phase FG scan. 


All instructions generated by the Phase 
BC code cenerators begin with an operation 
byte. Depending on the operation, it may 
be followed by zero or more bytes of 
information whicn are intrinsically part of 
the instruction. Each instruction may have 
either or koth of the characteristics STACK 
and FIXED. The definition of these charac- 
teristics follows: 


1. STACK. These instructicn consist only 
of the one-cyte operator. They taxe 
their operands, if any, from the Phase 
II stack. These operators correspond 
in general to the PL/I arithmetic and 
String operators. Depending on wheth- 
er they are unary or binary, they use 
tne top one or two items on the stack. 
Before these operands are used, they 
are converted, if necessary, in place 
to the required type. After the items 
are used they are popped from the 
Stack. The result of the operation is 
pushed onto the stack. 


the popping, and the 
stack 


The conversion, 
pushing are all implied for a 
operator. 


2. FIXED LENGTH. These operations are 
followed by a fixed number of bytes -- 
usually twc. These bytes, which  usu- 
ally refer to a dicticnary entry, 
Serve as the operand(s) of the 
instruction. 


The table below shows the operations 
that are to enccde macro instructions. The 
operand description indicates only the gen- 
eral operand type for a variable-length 
item. The count byte is omitted. 
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STACK 


STACK 


STACK 
FIXED 


STACK 


STACK 


STACK 


STACK 


STACK 


STACK 


STACK 


FIXED 


FIXED 


FIXED 


FIXED 


STACK 
FIXED 


STACK 
FIXED 


FIXED 


FIXED 


FIXED 


FIXED 


FIXED 


FIXED 


FIXED 


FIXED 


FIXED 


i 
1 
i 
i 
i 
l 
! 
Fr 
t 
[ 
[ 
l 
l 
1 
l 
l 
l 
l 
I 
i 
( 
i 
i 
i 
t 
[ 
l 
l 
I 
I 
! 
I 
l 
l 
l 
| 
| 
l 
i 
| 
i 
! 
t 
Li 
ke 
1 
i 
t 
t 
i 
1 
! 
[ 
i 
t 
Li 
| 
l 
1 
! 
[ 
1 
l 
1 
l 
l 
1 
| 
1 
l 
1 
l 
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Two-byte dictionary reference 
ne-byte code 
Two-byte dictionary reference 

wo-byte dictionary reference 


wo-byte dictionary reference 


[ooo ooo = 
| OPERAND DESCRIPTION 

+ we we o nm — 
| BINARY; OPERANDS, RESULT FIXED 
| 

|BINARY; OPERANDS, RESULT FIXED 
| 

|BINARY; OPERANDS, RESULT FIXED 
| 

|BINARY; OPERANDS, RESULT FIXED 
| 

JUNARY; OPERAND, RESULT FIXED 

| 

| UNARY; OPERAND, RESULT FIXED 

| 

| UNARY; B CONVERTED TO TYPE OF A 
| 

{UNARY; OPERAND, RESULT BIT 

| 

| BINARY; OPERANDS, RESULT BIT 

| 

|BINARY; OPERANDS, RESULT BIT 

| 

[BINARY; OPERANDS, RESULT CHAR 
| 

| BINARY; OPERANDS, RESULT VARY 
| 

| BINARY; OPERANDS, RESULT VARY 
| 

[BINARY; OPERANDS, RESULT VARY 
| 

| 

| 

[o 

| 

| 

| 

|T 

| 

|T 

| 

| 


reference and 
count 


|Two-byte dictionary 
la one-byte argument 


|two two-byte dictionary references 
|Two-byte dictionary reference 


[Two-byte dictionary reference 


|Three-byte line count 


{no operand 


Jno operand 


|Two-byte dictionary references 


|Two-byte dictionary references 


{Dictionary reference 


[Dictionary reference 


A+B 


ij 
0 


D 
* 
D 


D 
N 
tu 


I 
Y 


+ 
w 


D 
tt 


B (assignrent) 


D =— 
m tu 
Uu 


oJ 


[JE 


=B (equality) 


DoD 25 YP D 
V 
D 


^ 
D 


Ht 
a 
Q 
Ei 
a 
oO 
te 
D 


BORT processing 


Ho 


ransfer to label 
Transfer to label 


ransfer to label 
if top of stack false. 


t-a 


Invokes the procedure 


ransfer out of INCLUDE 


Yo Hd 


ush A onto stack 


re 


|Push address of A 
lonto stack 


| 
{Put line ccunt into LINCNT 
| 


|Enter interpreter 


| 
¡Return to Phase II scan 
ACTIVATE A 


| 
| 
| 
| DEACTIVATE A 
| 
[DECLARE A 
| 


|No-ops the DECLARE, 
| executed 


once 


poco cR Eu Poe sa eee P en Toa ese ee mc Memes 1 
|MNEMONIC| TYPE | OPERAND DESCRIPTION | FUNCTION | 
-------- ł-------ł-------------------------—----------ł--------------------------—-4 
|CVT6 | FIXED |Dictionary reference [Convert to RETURNS | 
| | | jattribute | 
| | | | | 
| RETN? | FIXED |Dictionary reference [Return from procedure A | 
nce NM —————— essed 


1iThe ASSIGN operator does not push a result. The expression result is found on 
the PDS and is popped; the dictionary reference for the left hand side is rhel 
single argument. | 


| 
20perand conversion for EQU, GT, and LT is as specified in IBM  System/360 | 
Operating System: PL/I Language Specifications, Form C28-6571. | 
| 


3The TRAF uses and pops the top operand on the stack. it is treated as a bit| 
string for conditional transfers. 


| 
| 
| 
| 
| 
| 
| 
| 
| 
[“This handles GOTOs out of included text. At this point CLNUP is performed. The 
| arguments are (a) the dictionary entry for the label to which control is to pass; 
| and (b) the dictionary entry for the current INCLUDE. 

| 

| 

| 

| 

| 

| 

| 

| 

| 

L 


reference is to the procedure entry. 


6This converts the top of the stack to the attributes specified in the RETURNS 
attribute for the procedure A. 


7This terminates the invocation of procedure A and converts the value on the top 


| 
| 
| 
| 
| 
SThe arguments for the invocation are contained on the stack. The dictionary | 
| 
| 
| 
| 
| 
of the stack to the attribute specified on the PROCEDURE statement. | 
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2. COMMUNICATIONS REGION USE 


———— 


The region from offset 0 to 


nan amen ———— ——Á—————————-———— 


offset 304 


(ZCOMM) is used as a general communications 


region 


throughout the compiler, 


including 


the compile-time processor. The region 
from ZCOMM to ZCOMM+463 is also used by the 
compiler; however, during the compile-time 
processor phase, this region is used exclu- 
sively by the compile-time processing. The 
details of this usage are shown below. 


Name 


STATUS 


STA2 


SUBSTRDR 


TOKPTR 


INCPTR 
INBUF 

OUTBUF 
PDSPTR 


ENDBUF 


WHERE 


IVBPTR 
LINCNT 
TEMPTR 
DCENTY 
CURINC 
CURDO 
PROCNO 
NXTPC 
DPHCNT 
CODE 


LENGTH 


Offset 


ZCOMM 


ZCOMM+1 


ZCOMM+2 


2¿COMM+4 


ZCOMM+ 8 
ZCOMM*12 
ZCOMM+16 
ZCOMM+20 


ZCOMM+24 


ZCOMM+ 28 


ZCOMM+ 32 
ZCOMM+ 36 
ZCOMM+ 40 
ZCOMM+42 
ZCOMM+44 
ZCOMM+46 
ZCOMM+48 
ZCOMM+49 
ZCOMM+50 
ZCOMM+52 


ZCOMM+54 


Length 


1 


Contents 
Byte 1: Bit 0 not used 

1 PROCSW -- processing macro procedure 
Note: 2 FINDBIT -- SRHDIC has found dicticnary item 
Condition 3 ERSW -- diagnostic produced in Phase II 
Settings 4 EFSW -- end of file encountered (input) 
"1" - set 5 LEVEIT -- processing IVB 
YON = off 6 INCSW -- processing included text 

7 PH2SW -- in Phase II 
Byte 2: Bit OLDINC -- processing already listed INCLUDE 


0 

1 SKPSW -- indicates entry to END from PRCSCN 
2 NOPERCENTSW -- look ahead for % completed 

3 SYSOPN -- SYSLIB DCB is open 

4 MACRO -- indicates current macro action 

5 PR2SW -- indicates in macro procedure 

7 ARG -- indicates that Phase II is looking 
arguments of activated procedure 


for 


Holds dicticnary reference of 0 level SUBSTR entry 


Address of character being scanned, text reference or 


absolute, right justified 


Save area for TOKPTR 


Absolute address of input buffer, right justified 

Absolute address of output buffer, right justified 

Absolute address to top of pushdown stack, right justified 
Absolute address to last significant character in input 
buffer, right justified 

Address of next availabie byte in output buffer, text 


reference or absolute, right justified 

Text reference to next free IVB, right justified 
Holds current line number, right justified 
Dictionary reference to top of "in-use" temporary stack 
Dictionary reference for chaining dictionary items 
Dictionary reference to INCLUDE entry being processed 
Dictionary reference to DO entry being processed 
Current procedure number, right justified 

Next available procedure number, right justified 
Current depth count 

Code for token type 


Number of signifiant characters in TOKBUF, right justified 
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MXDPTH 
INDEX 
ATTR 
GRSAVE 
NEWIVB 
VALUE 
PREINB 
BUFSRT 
INIVB 
OUTIVB 
TXTBLK 
INVBAB 
OUTIVBAB 
TXTBLKAB 
MTABC 
TXTEST 
BUF1 
BUF2 
LIBDCB 
USRDCB 
MAXLCT 
PRCWHR 
DCENTYAB 
SCHK 
PROCCL 
OUTERCL 
PROCCLDR 
OUTRCLDR 
DECIDR 
CURPRC 
TOKBUF 


HASTB 


CONSCH 


SPECCH 
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ZCOMM+56 
ZCOMM+58 
ZCOMM+60 
ZCOMM+64 
ZCOMM+68 
ZCOMM+72 
ZCOMM+76 
ZCOMM+80 
ZCOMM+ 84 
ZCOMM+85 
ZCOMM+ 86 
ZCOMM+88 
ZCOMM+92 
ZCOMM+ 96 
ZCOMM+100 
ZCOMM+104 
ZCOMM+108 
ZCOMM+112 
ZCOMM+116 
ZCOMM+120 
ZCOMM+124 
ZCOMM+128 
ZCOMM+132 
ZCOMM+136 
ZCOMM+140 
ZCOMM+142 
ZCOMM+144 
ZCOMM+146 
ZCOMM+148 
ZCOMM+152 
ZCOMM+164 


ZCOMM+ 300 


ZCOMM+ 428 


ZCOMM+ 430 


32 


128 


Integer value of depth of replacement, 


right justified 


Hash table index for dictionary routines 


"Type" byte for dictionary rcutines 


Save area for GRG 


Pointer to IVB chain to be 


freed or obtained 


Type and value/value pointer for dictionary entries 


Pointer 
Pointer 
Current 
Current 
Current 
Current 
Current 


Current 


to header information for INBUF 


to left margin in INBUF 


busy block 
busy block 
busy block 
block used 
block used 


block used 


number 
number 
number 
in absolute address calculation 


in aksolute address calculation 


in absolute address calculation 


Address of translate table for TOKSCN and FINDPC 
Length of text block adjusted for chain address 
Pointer to first INCLUDE buffer 

Pointer to second INCLUDE buffer 

Pointer to DCB for SYSLIB data set 

Pointer to DCB for user data sets 

Maximum line count used so far 
Pointer to next byte in which to put procedure text 
Absolute address of dictionary entry 

Pointer to level 1 SUBSTR entry 

Dictionary reference of procedure check list 
Dictionary reference of outer check list 

Dictionary reference for PRCCCL cell 

Dictionary reference for OUTERCL cell 

Dictionary reference of dictionary entry for DECIMAL 1 
Pointer to current procedure entry on PDS 


32-byte buffer, characters inserted left justified 


64 two-byte dictionary references to hash chains for named 
items 

Dictionary reference to constant chain 

Dictionary reference to special chain -- debugging only 


———— —ÓÓ—Ó— —e aa a —À—À— ————M— —À— a na — 
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Although the compile-time processor 
makes considerable use of the Operating 
System facilities, it usually does so indi- 
rectly through the compiler control. 1 How- 
ever, those Operating System services 
required to support the INCLUDE facility 
are invoked directly. Since included text 
is required to be a member of a partitioned 
data set, it is those data management 
facilities which support BPAM which are 
used. Specifically the macros OPEN, FIND, 
CLOSE, READ and CHECK are used by various 
parts of the INCLUDE handiera Details of 


—MÓ— — ——Ó wo e ae m — —À — — mw an 


Form C28-6541. 


The root phase is invoked by the compil- 
er control if the MACRO option is speci- 
fied. All subsequent communication between 
the compile-time phases and the compiler 
control is done by way of cells in the 
communications region. This includes the 
parameters passed to the F service rou- 


tines, the decoded options which are test- 
ed, and the cells set to indicate the 
Status of source margins and mode (EBCDIC) 


of the output. 

Specifically, the following cells in the 
communications region are either used or 
set: 

PAR1 


PAR2 


ZTV 


ZMYNAM 
MCSIZE 
CCCODE 
TXTSZ 


ZSOR -- column number in which to begin 
scan of input text 


ZMAG -- column number in which to end 
scan of input text 


ZTRANI 


The following compiler control routines 


are referenced: 


ZUPL RELESE 
ZURD RLSCTL 
ZUGC ZTATRE 
ZUTXTC ZTA TAP 
ZURC ZCHAIN 
ZABORT ZALTER 
ZLOADW ZDABRF 
ZDICRF ZEND 
ZUERR ZUBW 
ZDRFAB 


Index 437 


INDEX 


Abbreviations in text during 
compilation 396-404 
ABS 51 
Absolute addresses, conversion from 15 
ADDR built-in functions 50 
Adjustable bound expressions 60 
Adjustable length constants 34 
Aggregate, DEFINED 61 
AGGREGATE LENGTH TABLE 61 
phase 61 
Aggregates Logical Phase 19,45-46 
ALLOCATE chain 29 
pointer-variable in the SET option 53 
Statements 39,44,52,53,60 
triples 48 
ALLOCATE statements 36 
format of 380 
with based variables as arguments 53 
AND 49 
functions 50 
operations 50 
Annotated Dictionary Dump 25,26 
Annotated Text Dump 25 
AREA 34 
references 45 
variables 38 
AREA arrays and structures storage 
mapping 45,46 
AREA condition dictionary entry 38 
Arguments 52,53 
based variables 53 
expressions 41 
passed to library routines 45 
Arithmetic triples 49 
Arithmetic registers 47 
Array and structure arguments to built-in 
function 44 
Array bounds 
expressions specified for 32 


format of the second file statement 391 


identifiers with identical array 
bounds 34 
Array expressions 40,43 
in I/O lists 43 
Array mapping 19 
Array string dope vector, size of 60 
Arrays 
adjustable 45 
arguments to built-in functions 44 
assignments 40,43 
base 43 
defined 43 
EVENT 53 
having adjustable bounds 35 
INITIAL 58 
initial value string 48 
mapping of 45 


non-structured arrays in AUTOMATIC 360 


non-structured arrays in STATIC 
INTERNAL 360 

partially subscripted 42 
STATIC INTERNAL 58 


438 


unsubscripted 43 
Arrays of strings with the VARYING 
attribute 
secondary dope vector 59 
Arrays storage mapping 45,46 
ASSIGN statement 
format of 377 
Assignrent statements 
nested 43 
Assignments 40,43 
array 43 
scalar 43 
to chameleon dummy arguments 44 
Assignments coded in-line 55,56 
ATR 
attribute lister 39 
option 61 
ATR Option Phase FX 39 
Attribute collection 34 
Attribute list 34 
Attributes 
BIT 34 
CHARACTER 34 
declarations 19 
default 35 
DEFINED 34,58 
DIMENSICNS 34 
factored 34 
generic 34 
INITIAL 36 
INITIAL CALL 34 
invalid and inconsistent 34 
LABEL 384 
LIKE 36 
PICTURE 34 
POSITION 34 
PRECISION 34 
SETS 34 
testing for consistent attributes 32 
USES 34 
AUTOMATIC 
chains 45,57 
non-structured arrays in 360 
non-structured scalar strinas in 361 
AUTOMATIC chain delimiter, dictionary 
entry 366 entry 366 
AUTOMATIC structures 360 


Base elements of structures 
bounds 32 
BASED 34 
Second File Statements for 392 
variables 38 
BASED variable 36,39 
arguments 52,53 
Batch compilation 26,64 
Batch delimiter card 26 
BCD 
entries 364 
identifiers 19 
BEGIN 


chains 28 
entries type 1 32 
Statements 37,39,42 
triples 48 

BEGIN Statement 
format of 376 
prologue 60 


BIT 34 
attributes 34 
string 49 

BLDL 


second half list 26 
BLDL macro 22 
Block levels 28 
Block Control 21 
Block header chains 33 
Block nesting levels and counts 30 
Block size 
dictionary 15,22,405 
text 15,22,405 
BOOL functions 
AND 50 
EXCLUSIVE OR 50 
In-line code 50 
OR 50 
Bounds 
for base elements of structures 32 
of temporary arrayS 32 
Build list 22 
Built-in functions or programmer supplied 
procedures 51 
Built-in function table 44 
Built-in functions 
ADD 49,50 
ADDR 50 
array and structure arguments 44 
compiler 32,55 
COMPLETION 50 
Dictionary Entries 363 
DIVIDE 49 
EMPTY 41 
EXCLUSIVE OR 50 
generated in-line 45,51 
INDEX 45 
MULTIPLY 49 
NULL 41 
NULLO 41 
STATUS 50 
SUBSTR 45 
UNSPEC 45,50 
BUY 40,51,55,60 
BUY ASSIGN 
Statements 55 
BY NAME option 40 
Byte 9 
Code Byte 365 
Bytes for 351 
Entry Dictionary Entries ENTRY 351 


CALL 

chain 29,35 

EVENT 51 

PRIORITY 51 

TASK 51 

to a Library epilogue routine 52 
CALL statement 37 

format 378 


procedure invocations 44,51 
Calls 

with arguments 41 
Cards 63 

loader text 63 

relocation directory 63 


CAT 49 
Cataloged procedures 15 
CCCODE 26 
format of 343 
Chains 


ALLOCATE 29 
AUTOMATIC 45,57 
BEGIN 28 
block header 33 
CALL 29,35 
Circular PROCEDURE-ENTRY chain 34 
COBOL 45 
constants 57 
CONTROLLED 45,57 
DECLARE 29 
LIKE 3€ 
of DECLARE statements 34 
PROCEDURE 28 
PROCEDURE-ENTRY 33 
PROCEDUKE-ENTRY-BEGIN 29 
STATIC 45,57 
Chains constructed by Read-In 29 
CHARACTER 34 
attrikutes 34 
string 49 
Character translation 21 
Character Translation Tables 21 
CHECK 
conditions 40,42 
CHECK lists 38,42 


Entry 365 
List Processing 38 
CLOSE 


calling sequences 54 
Library modules 54 
CLOSE statements 
format of 380 
COBOL chain 45 
COBOL option 41 


COBOL structures storage mapping 45-46 


Code Byte 

Byte 9 365 

Dictionary entry 345,351 

ENTRY 351 

First Code Byte - Other 1 355 

for GOTO 37 

Fourth Code Byte - Other 4 356 

GOOB 37 

Optimization Byte 352 

Options 34,351 

Second 364 

Second Code Byte - Cther 2 355 

Third Code Byte - Other 3 356 
Comments in the listing 64 
Communications region 17,21,407 


Communications Region - tables 408,413 


Communications region, compile-time 
processor 434 
COMPARE operator 49 
Comparisons 50 
triples 49,50 
string 49 


Index 


Compilation 
batch 26 
bypassed 28 
termination of 45,65 

Compile-time expressions 531 

Compile-time macro operations 

table 432-433 

Compile-time Processor 
dictionary entries 429 
instruction codes 431 
internal format of text 429 

Compile-time Processor error messages 

text 28 

Compile-time 

Compile-time 

Compile Time 


Processor Logical Phase 429 
Processor Phase 19,27 


Processor Line numbering 27 


Compile-time Processor, cormunications 
region 434 
Compile-time statements 431 


syntax errors 28 
Compiler 
initialization 15 
input 15 
labels 361 
output 15 
Compiler completion codes 23 


Compiler Control module IEMAA 21 
Compiler control modules 24,27 
Compiler control routines 

entry to 407 

initialization 15 
Compiler Function - formats 390-393 
Compiler functions 32,55 
Compiler labels 

numbered for use 63 
Compiler options 

LINECNT 414 

SIZE 414 

SORMGIN 414 

table 25 
Compiler Organization 17 

Figure 3 18 
Compiler, overall flowcharts 67-68 


Compiler pseudc-variables and functions 
Compiler pseudo-variables 55 
Compiler subroutines 
text for 63 
COMPLETION 50 
Completion codes 23 
Concatenation 50 
of varying strings 50 
triples 45 
CONDITION conditions 38 
Conditions 
CHECK  &40 
ON 40,365 
Constant subscript evaluation 
Optimization of 52 
Constants 30 
adjustable lengtn 34 
chain 38,57 
Dictionary Entries from 
FILE 362 
file constants with the ENVIRONMENT 
option 41 
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EG 33,114,129-130 PD 57,281,291 
EI 34,115,131-133 PH 57,282,292-293 
EL 34,116,134-136 PL 58,283,294 
EP 35,117,137-138 PP 59,284,295-296 
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Pseudo-code units 

format of 386 

SUBSTR 50 

triples 49 
Pseudo-variable-formats 390-393 
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symbolic 62 
Remote format statements 55 
Resident tables 341 
Results 
Intermediate 48 
RETURN 
triples 52 
RETURN expression 
expression in 32 
RETURN statement 
format of 379 
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text for 63 
STATIC INTERNAL Structures 360 
STATIC chain 58 
STATIC storage allocation 57 
STATUS 50 
Sterling constants 38 
STMT option 62 
STOP 
format of 379 
statements 52 
Storage 
Temporary 40 
Storage allocation 
STATIC 57 
Storage Allocation 57-61 
Storage Allocation Phase 19 
Storage class 38 
Storage Requirements 22,405 
Storage size options 15 
String 
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